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I. INTRODUCTION 


As the size and complexity of the software base increases the need for an easy to 
use query entry, along with quick and accurate search algorithms, becomes a necessity. 
The goal of this thesis is to develop a graphical user interface to make searching the 
CAPS software base, or component repository, a less tedious task. It will use profile 
filtering and signature matching as proposed in [1] Improving Syntactic Matching For 
Multi-Level Filtering. The current prototype system has a limited user interface 
capability. This research will add a graphical user interface for the system. The interface 
will make the retrieval process less error prone. The user would not need to be an expert 
in how the software base works thus increasing the ease of use and productivity. Search 


metrics could be collected to aid future improvements to the search algorithms. 


A. FORMS OF REUSE 


When developing a software project many forms of reuse are commonly 
practiced. Most often they are in the form of libraries some are include with the compiler, 
or purchased separately like graphics, static and engineering packages. Finding specific 
modules in the package is accomplished using a simple text based search engine and a 
requirements list. This can be adequate for well-understood utilities like the 
transcendental functions supplied with the compiler. Searching for some intricate 
engineering functions, where lexical descriptions may vary widely, can be very time 
consuming. Libraries that are developed in-house, for use on a specific project, will have 


descriptions that are clear and concise to the author while other members of the team may 


find them indistinct. The user can form a search string using terms that are familiar to 
them but not get a match on a module that would suit their needs. 

On large projects, common tasks could benefit from reuse if the source code could 
be found but it is often easier to rewrite than to search a large software repository for 


something that is not there or have the search miss the component that is sought. 


B. CURRENT SOFTWARE DEVELOPMENT PRACTICES 


As the size and complexity of software projects increase and budgets decrease the 
need for software reuse becomes critical. Software development project managers will 
specify that software reuse will be practiced as a way of decreasing the cost and 
increasing the reliability of the software to be developed as part of the proposal process. 
However, if reuse was not part of the development process in the past, during the actual 
development they will find that they are not able to benefit from reuse. Software 
developed without reuse as one of the design criteria will be difficult to transform into a 
reusable module making it less likely to be reused in future projects. Those with reuse as 
one of the design goals will be ready for reuse in future projects. One form of designing 
for reuse is a generic module that can be used in a variety of instances without 
modification. An example is a generic sorting routine that can sort any standard data type, 
while a non-generic routine would sort one data type. The need to make even simple 
modifications to a module may eliminate it from being reused in future projects. When 
modifications are required to reuse a module, the possibility of introducing errors is very 


likely. Assumptions can be made by the original author in writing the module that are not 


known or understood by those making modifications, thus introducing errors. As the 


module evolves over time, the module becomes a disaster waiting to happen. 





rE BACKGROUND 


Some previous works in software engineering and search techniques are presented 


here as a background for the research presented in this thesis. 


A. CAPS 


Computer Aided Prototyping System (CAPS) automates the early design phases 
of developing embedded systems that have strict real time constraints. CAPS represents a 
working environment consisting of development tools that help systems analysts and 
programmers to automate the design and implementation of rapid prototypes for hard real 
time embedded systems [2]. These tools include an execution support system; syntax 
directed editor, graphical editor, and automatic constructors for scheduling and control 
code, automated integration of ADA modules, and the framework for the inclusion of 
components from a software base. 

Prototyping in CAPS consists of creating the PSDL description of the system 
design. This 1s accomplished with the graphical editor [3], used to create the PSDL 
skeleton, and the syntax directed editor, that is used to flesh out the skeleton. The PSDL 
description is then translated into an ADA package that is a driver for the atomic 
operators. A static scheduler finds a schedule for the time critical operators and produces 
an ADA package that contains the schedule for the time critical operators that is 
represents as an ADA task. The dynamic scheduler produces an ADA package for the 
non-time critical operators. The software base is a repository for reusable components 


that can be used for the atomic operators. If a reusable component cannot be found the 


developer either writes it or decomposes it in an effort to find a reusable component. 
CAPS will compile and execute the prototype. The prototype is then modified in response 
to the users’ input. After the users accept the prototypes demonstrated functionality the 
developer will port the prototype to the target hardware and operating system. 

There are two places in CAPS that can benefit from reuse, the construction of the 
atomic ADA operators in the prototype and the final optimized versions that will make up 


the delivered product. 


B. PSDL 


The Prototyping Description Language (PSDL) [4] is used to specify the 
prototypes in CAPS. This language has data flow like semantics containing operators that 
communicate via data streams. PSDL programs have we kinds of objects, abstract data 
types and abstract state machines. The data streams carry values of a fixed abstract data 
type. Formally, the PSDL model is that of an augmented graph G =(V,E,T(v),C(v)) 
where V is the set of vertices, E is the set of edges, 7(v) 1s the maximum execution time 
for each vertex v, and C(v)is the set of control constraints for each vertex v. Each 
vertex is an operator and each edge is a data stream. 

An Operator is either a function or a state machine. When an operator fires, it 
reads the input data stream and writes zero or one date object to its output streams. The 
output depends only on the current set of input values. For state machines, the output 


depends on the current set of input values and a finite number of internal state variables. 


Operators are either atomic of composite. Atomic operators can not be 
decomposed any further and are implemented in a programming language. Composite 
operators are constructed from PSDL components with a lower level of abstractions. This 
continues until the atomic operator is reached. Figure | illustrates the decomposition of 


the PSDL operator in to two atomic operators. 


Atomic Operator 


PSDL Operator 





Atomic Operator. 





Figure | PSDL Atomic Operators 


A data stream is a communications link between two operators. Each stream 
carries a sequence of data values from the produce to the consumer. There are two types 
of data streams, data flow streams and sampled streams. The data flow stream can be 
though of as a FIFO queue where data values are neither lost nor replicated. A sampled 
stream can be thought of as a cell that contains one value that is updated as the producer 


generates new values. 


The PSDL specification for a component contains the information needed for 
analyzing and finding reusable independent objects that are contained in the software 
base. A PSDL specification is independent of the computer language that is used to 


implement a component making it ideal for query and tag specification. 


C. TEXT SEARCH 


Text queries are based on keyword matching. The query is specified as a set of 
keywords. The software base is searched for the given keywords. Any components that 
match are returned as candidates for the query. For a software base with a large number 
of components, if the user includes too few keywords they are overwhelmed by the 
number of candidates. If they use too many keywords, they miss the component because 
an exact match is not found. An improvement to this technique is to use a faceted 
approach [5] where keywords are selected from predefined keywords in a faceted list. 

The faceted list is a predefined set of keywords that are constructed by experts and 
are designed to best describe the component. This list must be continually updated as new 
components are added to the software base. To facilitate the maintenance of the software 
base on large projects a full time librarian is required. This is an added cost for the 
project. The fidelity of the faceted list is a function of how well the users and librarian 


associate the functionality of a component with the keywords that are selected. 


D. SYNTACTIC MATCHING 


Syntactic matching uses non-behavioral component information, such as a 


keyword list, package declaration or PSDL specifications [6]. If a query component has 


the same interface specification as one from the software base then the components may 
match. Components with dissimilar interface specifications will not match. These 
components can be eliminated from consideration as a candidate. This method can be 
used to quickly eliminate candidates from the search that can not be a match. This leads 
to a multi-level filtering [7] approach which is organized as a series of increasingly 


stringent filters that pass only candidates that are an approximate match to the query. 


E. PROFILE FILTERING 


A profile [6] is a sequence of numbers that describes how the types! associated 
with an operation are organized. For a query to match a component in the software base 
they must have matching profiles. The profile of an operation is a sequence [6] of 
integers, defined as follows: 

1. The first integer is the total number of occurrences of types. 


2. If the total number of type groups, N, is greater than 0, then the second to 
(1+ N)” integers are the cardinalities of the type groups, in descending order. 
3. The (2+ N)" integer is the cardinality of the unrelated sort group. 
4. The (34+ N)" integer is: 
0 if the value type is different from any of the argument types; and 


1 if the value type belongs to some type group. 


| Note that the dissertation used the words sort and type interchangeably. For clarity, only 
type will be used. 


By calculating, a profile for each component in the software base, like 
components can be placed into a common partition [6]. When searching for a query it is 
only necessary to search the partition that contains components with profiles that match 
the queries profile. All components in other partitions have been eliminated as candidates. 
This is a fast process that is well suited for the early stages of multi-level filtering where 
low precision is acceptable and the main goal is to prune the number of candidates for 
latter high precision high cost filters. 

Improvements to increase the resolution of profile filtering have been suggested 
[1] such as adding more properties to the profile using properties that can be measured 
with more possible values. By increasing the resolution, we also increase the number of 


profiles, thus reducing the number of candidates that pass this lever of filtering. 


F. SIGNATURE MATCHING 

The signature of a module [8] [6] is a triple (S,N,X) where S is the set of types? 
that appear in the operation signature in X, N is the set of operation names that appear in 
the operation signature in X, and Xis a set of operation signatures. An operation 
signature is a triple containing an operation name, a sequence of input types, and an 
output type. This definition assumes each operation signature has exactly one output. 

A signature match exits if there is a mapping between the query operations and 


types to the candidate operations and types. A partial signature map [6] 1s one that does 


2 Note that the class notes use the term sort instead of type. In the interest of continuity 
sort was changed to type. 
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not map all of the queries operations. A full signature map successfully maps all of the 


operations. 


G. SOFTWARE BASE 


The software base is the repository for the reusable components in CAPS. The 
software base must be structured [9] so that it will support the automatic retrieval of 
components based on their specifications. The architecture must support syntactic 


matching and handle variable numbers of type attributes. 
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Iii. DESIGN AND CONCEPTS 


The design goal is to have a Graphical User Interface to the program proposed and 
written in [1] Improving Syntactic Matching For Multi-Level Filtering that will handle 
interactions between the user and the software base. This will include searches as well as 


maintenance of the software base. 


A. MULTI-LEVEL FILTERING IMPLEMENTATION 


Multi-Level Filtering was implemented [1] in ADA using the foreach extension 
that was add, as a preprocessor, by the Naval Postgraduate School Computer Science 
Department. It was assumed that all queries and component specifications would be 
written in PSDL. Extensive use of the CAPS PSDL library was used in handling the 
query as well as the software base component. All components will be stored in separate 
directories in the software base. A header file will be used to identify [1] all of the 
components that comprise the software base. Input to the filtering program was through a 
file that contains the query. The standard output was used to display the results. This 
placed restrictions on the implementation of the user interface that uses C++, the X11R6 
libraries, and the Motif graphs libraries in how the input and output are preformed. One 
goal was to minimize the modifications to the existing ADA code so input and output 
will be buffered to a temporary disk file. The internal representation of the software base 
components was recalculated each time that filtering was done. A modification was made 


to split the program into two distinct parts maintenance, which saves the initialized data 


structures, and searching, which reinitializes the data structure from the those saved 


during maintenance. 


B. SOFTWARE BASE ORGANIZATION 

The software base is organized into component modules. All files for a 
component will reside in a separate component directory. No other directories are allowed 
in the software base. Each component will have a PSDL specification irrespective of the 
language of implementation. The PSDL specifications will be used in the filtering 


process. 


Software Base 





Set Tan Sequence sb_header dat 

PSOL PSOL PSOL 

component_id_map.dat 
Set.psdl Tan psdl Sequence psdl 

haase_diagram.dat 
Set_sa Tan.h Sequence ads 
Set_b.a Tan.cpp Sequence.g profile_lookup_table dat 
Set.obj3 Tan man 


Figure 2 Software Base Directory Structure 


Figure 2 is an example of the structure of the software base. Set, Tan, and 
Sequence are component directories in the software base. The header file, sb_header.dat, 
is used to identify all of the components that comprise the software base. An example is 


shown in Figure 3. 
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Software ni 


| 1000 /SoftwareBase/Set 


| 2000 /SoftwareBase/Tan sb header.dat 
3000 /SoftwareBase/Sequence = 





Figure 3: Software Base Header Example 


Each entry contains a unique ID [1] followed by the component directory name. 
The ID will be used to identify the component in the data structure that internally 
represents the software base. The ID saves space and is easier to manipulate then a 
character based component name. In the original implementation, the component 
directories could be spread across networked file systems. In the interest of 
maintainability, the software base will be restricted to a single file system that can be 
exported to other machines. The pre-computed data structures for the internal 
representations of the software base components are stored in files that reside in the 


software base directory. 


C. DIALOG INTERFACE CONNECTIONS 


The graphical user interface to the software base was split into two dialogs. One 
dialog will be used for maintenance, allowing the addition of new components and the 
initialization of the data structures. The other dialog will search for components in the 
software base. 

Two conventions were implemented for starting the dialogs, one in the Motif 


tradition that is non-blocking and uses a callback routine to pass results on completion. 


I5 


The other a normal “C++” routine blocks until the user is finished. The subroutine returns 


a pointer to the results. 


vold SearchDialog(Widget parent, XtCallbackProc callback); 
char* ModalSearchDialog (Widget parent); 


void MaintenanceDialog(Widget parent); 





void ModalMaintenanceDialog(Widget parent); 


Figure 4: GUI Interface Routines 


Figure 4 shows the dialog subroutine calls where parent is the widget that the 
dialog will be display in and callback is the routine that will be called upon completion. 
The modal versions are blocking. A modeless version of the maintenance dialog was 


included for completeness. 


D. TEST PROGRAM 


A simple test program was written to test the graphical interface. The only 


functionality was to initiate the maintenance or search dialog and display the results. 


CAPS Software Base Search 





| Search | | Search | Maintenance | ModSearch | PEM 5 Quit | 


Figure 5: Test Display 


Pressing one of the buttons (Figure 5) will initiate a call to the appropriate dialog 


entry routine. The output is displayed on the standard output. 


E. SYNTAX DIRECTED EDITOR 


At the time that this thesis was written the CAPS Syntax Directed Editor (SDE) 
was unavailable. Creating a true SDE was beyond the scope of this thesis. A simple editor 
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was created for testing purposes to be used in making changes to the PSDL query/spec. 
The functionality that is supplied by this editor will be replaced by the CAPS Syntax 
Directed Editor. The interface to the CAPS SDE was unknown at the time that this editor 
was written so some modifications to other routines may be necessary. The subroutine 


SDE.C can be removed or used as the connection point for the CAPS SDE. 


void SDE(Widget parent, char **filename, char **string); 
Figure 6: SD Editor Calling Convention 


Figure 6 is an example of the SDE subroutine entry point. Parent is the widget 
that the dialog will be display in. Filename is a pointer to the user-selected file name for 
the query. If the user canceled the editor or did not select a file name, then file name will 
be set to the NULL pointer. String is a pointer to the PSDL query that will be used in 
filtering. If the user canceled the editor or did not enter a query then the string will be set 


to the NULL pointer. 
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File Edit 


File name: |]/nome/greg/Thesis/NewQuery .psdl 


“TYPE 
SPECIFICATION 



















Domain : PRIVATE_TYPE, 
Ranges :; PRIVATE_TYPE, 
Hash_Of ; FUNCTION[(The Domain : Domain, RETURN : Positive}, 
Hash_Of : PROCEDURE(The_Domain : in[t : Domain), Result : out([t : 
OPERATOR Copy 
SPECIFICATION 
INPUT 
From The_Map : Map. 
To_The Map : Map 


OUTPUT 
To_The_ Map : Map 
EXCEPTIONS 
Overflow, Domain_Is_Not Bound, Multiple_Binding 
END 


OPERATOR Clear 
SPECIFICATION 





OK | Caneel | | 


Figure 7: SD Editor 


Figure 7 shows the simple SD Editor display. The user can type the query directly 
into the edit window. Through the file menu (Figure 8) an ocaal query can be opened, 
saved, or saved under a different file name. The close menu entry will close the SD Editor 
and exit will exit the program. Simple editing capabilities are implemented through the 
edit menu (Figure 9). Cut copies the selected text to the buffer then deletes the selection. 
Copy put the selected text in the buffer. Past copies the buffer in to the current cursor 


location. 
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Cut 
Copy CtrhC 
Paste Ctri+V 














Ctri+E 
Ctr#S 
CtritA 








Figure 9: Edit Menu 





Ctrl+GQ 


Figure 8: File Menu 


F. SEARCH DISPLAY 


The filtering process has three distinct parts, the PSDL query, profile filtering 
results, and the signature matching results. The dialog is partitioned into these three areas 


with their associated input. Figure 10 illustrates the search dialog box and its components. 


a 


Query Search 


CAPS Software Base Search 
PSDL Query: | /hone/greg/Thesis/NewQuery.psdl 


TYPE Set 
SPECIFICATION 
GENERIC 
Item : DISCRETE_TYPE 
OPERATOR Copy 
SPECIPICATION 
INPUT 
From The Set : Set, 
To The Set : Set 


Profile Filtering Minimum Rank: [Ih.00 





Found 34 components in 26 partitions. 
Their are 34 possiable candidates. 
(( S3cQmee 1.00 
4002 | 1.00 
4003 | 0.77 
4004 | 0.77 
5006 | 0.38 
5007 | 0.38 
SQi1 | 02354 
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Signature Matching Minimum Rank: [k.00 


2 candidates have profile rank -= 1.00 
_j fhome/greg/Thesis/SoftwareBaseftan/PSDL_SPEC 


Component ID: 3001 
Profile Rank: 1.00 Number of signature match solutions: 1 
Solution 1 
Signature Rank: 1.00 
Semantic Rank: unknown 


Valid, Not Expanded 
Op Map: {[Extent_of, 


ate ee te ET 


! Search | Cancel 





Figure 10 Search Dialog 
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The query file name input box is placed above the query display. A file name can 
be entered; when the return key is pressed the file is opened and displayed in the query 
window. The query menu, Figure 11, gives the user the means to enter a new query, open 
an existing query, edit the current one, or save the current query. The search can be 
started by pressing the search button or through the search menu. Figure 12 illustrates the 
search menu. Usage information 1s provided through a help menu (Figure 13). 

New Start cenit] Maintenance 

Open Ctri+O 
Edy ae 
Save CtrhS 
SaveAs CtritA 


Ciose Ctr W 
Ctri+GQ 














Version 





Figure 12: Search Menu 





Figure 13: Help Menu 





Figure 11: Query Menu 


The minimum profile ranking that must be exceeded to pass filtering is displayed 
above the profile filtering results. This window is where the user will input the desired 
value. The user may adjust the value up or down to tailor the filtering process to increase 


or decrease the number of components that pass profile filtering. 
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Figure 14: Profile Filtering Results Example 


Like the profile display, the signature match has both a rank and results window. 
The results window is also where the user will select the component that bests matches 
their needs. Figure 15 illustrates the results of a query. Filtering found two candidates 
with a rank greater than or equal to that set by the user, one in this case. The component 
name is tan with component ID 3001. To select this component the user will press the 
button next to the name. To view the other candidates the user can scroll down. If nether 
of the candidates meet the users needs they can reduce the rank and search again. The 


operator map 1s shown in Figure 16. 
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2 candidates have profile rank -= 1.900 


_| fhome/greg/Thesis/SoftwareBase/tan/PSDL_ SPEC 


Component ID: 3001 
Profile Rank: 1.00 Number of signature match solutions: 1 


Solution 1 





Signature Rank: 1.00 
Semantic Rank: unknown 
Valid, Not Expanded 
Op Map: { [Extent_Of, 


Fae de eee de NE 
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Figure 15: Search Results Example 


As the multilevel filtering technology evolves and levels are added, the modular 
design of the search dialog will allow it to encompass them by adding new windows for 


input and output. 


Zs 


Signature Rank: .00 
Semantic Rank: unknown 
Valid, Not Expanded 
Op Map: { [Extent Of, 
EXCenc rolls 
[Is_Empty, 
Is Empey]; 
[is ArMembex, 
is_A Member], 
[Clear, 
Clear], 
[Is Equal, 
Is Equal], 
[is 2A ysubset, 
Is A subset], 
[Ts SAT Proper subset, 
Poe ee raner suvse’ |, 
[Copy, 
Copy], 
[Add, 
Add], 
[Remove, 
Remove], 
hUnLon, 
Ynten)), 
[Intersection, 
Intersection], 
[Difference, 
Difference]; } 
Type Map: {[set, 
set], 
[item, 
item]; } 
Branches: [] 





Figure 16: Example Signature Matching Results 


G. PROGRESS DISPLAY 


While the filtering process is running a progress display keep the user informed as 


to what is happening. Figure 17 1s an example of the search progress. 
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Renitializing Software Base 
Retreving the_component_id_map...done 
Retreving the_profile_lookup_table...done 
Retreving the_haase_diagram...done 
Finished. 
PROCESSING /home/greg/Thesis/NewQuery.psdl 
Profile Filtering...finished. 
Signature Matching...done 





Figure 17: Search Progress Display 


H. MAINTENANCE DISPLAY 


Maintenance is the addition of components to the software base or the 
initialization of the multilevel filtering representation of the components in the software 
base. The maintenance dialog aids the librarian in keeping the software base current. 


Figure 18 shows the maintenance dialog. 


Zz 


eau 
Spec Component init Heip 


CAPS Software Base Maintenance 


PSDL Spec: | /nome/greg/Thesis/ sb/vetorage/vetorage. psd] 


OPERATOR Free 
SPECIFICATION 
GENERIC 
Item : PRIVATE_TYPE, 
Pointer : ACCESS_TYPE, 
Free ; PROCEDURE(The_Item : in_out[(t : Item]], 
Set_Pointer : PROCEDURE(The Item : in out[(t : Item], The Pointer 
Pointer_Of : FUNCTION(The_Item : Item, RETURN : Pointer] 


: Pointer 


The Pointer : Pointer 


IMPLEMENTATION ADA Free 


Component Fiies: 


f/home/greg/ Thesis/sb/vetorage/vstorage. ads 
/home/greg/Thesis/sb/vatorage/vstorage.g 
/nome/greg/Thesis/sb/vstorage/vetorage. txt 


FS oe 


Dismiss | init DIR init SB | Ciear FL | Clear Ali| 





Figure 18: Maintenance Dialog 


The librarian enters a new PSDL spec with the SD Editor or opens one that was 
previously created. Figure 19 show the spec menu. New opens the SD Editor for input of 
a new PSDL specification. Open starts a file dialog to open an existing PSDL 
specification. Edit opens the current PSDL specification in the SD Editor. After the user 
has finished with the PSDL spec, it will be displayed in the top window. An alternate way 
of opening the PSDL file is to enter its name in the PSDL file window; a return is needed 


update the display. 
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Ctri-N 
Ctri+0 
Ctrit+E 
Save Ctril+S 
saveAs Ctri+A 
Close Ctr Ww 
Ctri+Q 


= o_O eee eee eee eee eee 


Add Component File Ctrl+F 
Clear Component Files Ctrl+C 
Clear All Files Ctrl 




























Figure 20: Component Menu 






Figure 19: Spec Menu 


The directory that the component will be stored in will be named after the PSDL 
specification file name. This will be created during the initialization process. The 
component files include any file that is needed to implement the component or document 
its function. These files will be copied to the pie: directory during initialization. 
Figure 20 is the component menu. Included in the menu are the following items: Add 
component file adds a file to the component list. Clear component files, removes all files 
from the component list. Clear all files clears both the PSDL spec and component list. 

There are two steps to the initialization process. First the component directory is 
created and the components files are copied into it. Then the header file is created using 
all of the directories found in the software base. The header file is used as input to the 
initialization of the data structures. Figure 21 is the initialization menu. Initialize 
directory sets up the component directory but does not initialize the data structures. 
Initialize software base will initialize the component directory, if needed, and the data 


structures. User information is provided through the help menu (Figure 22). 


a 





ee ee 


Initilize Software Base Ctrl+! 
Initilize Directory 


Maintenance 
Search 





Version 


Figure 21: Init Menu 
Figure 22: Help Menu 


The following steps illustrates adding a component to the software base: 


Peocup the PSD Spec: 
2. Add component implementation files. 
3. Initialize the component directory. 


4. Initialize the data structures. 


Note that steps one though three can be repeated for multiple components to set 
up the directories before initializing the data structures. 
While initialization is running a progress display keeps the user informed as to 


what is happening. Figure 23 is an example of the initialization progress display. 
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Doing software Base Initilization 


Initializing Software Base 
Preparing 1000 /home/greg/Thesis/SoftwareBase/pstacksbm ... 4 comp 
Preparing 2000 /home/greg/Thesis/SoftwareBase/pstorages ... 0 comp 
Preparing 3000 /home/greg/Thesis/SoftwareBase/tan ... 1 componente 
Preparing 4000 /home/greg/Thesis/SoftwareBase/vbagssbmi ... 4 comp 
Preparing 5000 /home/greg/Thesis/SoftwareBase/vmapsnsbm ... 25 com 
inserting 1001 
inserting 1002 
inserting 1003 
inserting 1004 
inserting 3001 
inserting 4001 
inserting 4002 
inserting 4003 
inserting 4004 
inserting 5001 
inserting 5002 
inserting 5003 





Figure 23: Maintenance Progress Display 
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IV. CONCLUSIONS AND FUTURE RESEARCH 


A. ACCOMPLISHMENTS 


The goal of software reuse will only be attained if the tools that insulate the user 
from the tedious job of finding suitable components are created. The tools must be easy | 
to use, accurate, fast, and display results in an ordered manner. Tools are also needed for 
the addition of components to the repository. If the task of adding a component is to 
complex developers will not contribute to the repository. The Graphical User Interface, to 
Multilevel Filtering, developed in this thesis will aid the user in finding the reusable 
components that they are looking for and making additional components available for 
others to use. 

The Following Tools, running on the Linux operating system, have been used to 
implement the Graphical User Interface. 

e Linux version 2.0.27 

e Gnu C++ compiler version 

e GNAT ADA 95 version 

e GNU Source-Level Debugger 

e Data Display Debugger 

e XFree86 X11R6 


e MetroLinks Motif version 2.0 


pi 


All of the development tools are available on the Internet for a verity of development 
platforms, with the exception of MetroLinks Motif. During the development of the 


interface, a suitable Motif replacement was unavailable. 


B. FUTURE RESEARCH 


As multilevel filtering evolves and grows, the additions should be incorporated 
into the underling search program. The method of passing data between the C++ and 


ADA code needs to be refined. 


eZ 
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APPENDIX A C++ GUI SOURCE CODE 


Source code for the C++ for the Graphical User Interface. 


A. CALLBACKS.H 


/* 

oy Lommel backs ty Vv vl. s 9998701716 500;17.34 greg Exp $ 

* 

* Callbacks.h -- Software Base Search Interface 

* Header file for the common callbacks. 

* 

* Naval Postgraduate School 

+ January 13, 1998 

* 

* Written by Gregory L. Meckstroth 

aes 
/* 

| HILEPLGSPATA Sst ructure is Used to pass data to the file callback. 
* 

* parent: widget to use a parent for dialog construction. 
* Ename ext: text widget for file name display. 

* text: text widget for query/spec display. 

oe 


struct FILEDLG_ DATA 

{ 
Widget parent; 
Widget fname_text; 
Widget text; 

by 


void 
genericCB(Widget widget, XtPointer client_data, XtPointer call data); 


void 
newCB (Widget widget, 
WebOincerr ce  encradud, 
XtPointer call data); 


void 

editCB(Widget widget, 
PEPOlncerecliene  ddta, 
XtPointer call data); 


void 
openCB (Widget widget, 
XtPointer client_data, 
XtPointer call data); 


void 
saveCB (Widget widget, 
XtPointer client data, 
XtPointer call data); 


void 
saveasCB (Widget widget, 
XtPointer client_data, 
MEFOInter call data); 


void 
textchangedCB (Widget widget, 
REPOMmter client data, 


SS 


Reroincer callvdacay, 


B. CALLBACKS.C 


7* 

‘ "sla; Callbacks.C,;v io 1998701725 22749706 grequuxp.- 

* 

* Callbacks.C -- Software Base Search Interface 

* 

* Source code that implements the functionality of the file menu, in the search 
* and maintenance dialogs, through the use of callback routines. 

* Entry points: newCB, editCB, openCB, saveCB, saveasC, textchangedCB 
* 

* Naval Postgraduate School 

* January 117.2996 

* Written by Gregory L. Meckstroth 

* 

* 


™ 


#include <stdio.h> 
#inelude <stdlib.h> 
#include <iostream.h> 


#include <Xm/Xm.h> 
#inelude <Xm/Text.h> 
#include <Xm/FileSB.h> 


#include "Gui.h"” 

finelude "Utils.h” 
fanelude "SDE .h” 

#include "PromptDialog.h" 


fHinelude “Callbacks.h" . 
7m 

F Declarations for local functions. 

77) 


static void 
fileSkeB (Widget widget, XtPointer client data, xtPointer call data); 


Statice, vor 
filecancelCB(Widget widget, XtPointer client _data, XtPointer call data); 


static void 
saveasokCB(Widget widget, XtPointer client_data, XtPointer call data); 


Statice void 
editfile(FILEDLG DATA * data, char **filename, char **string); 


/* 
* Global storage for the user selected directory. 


teh 
Static char *save directory = NULL; 


ve 
* Generic callback assumes client_data has a text string. This callback is for 
* testing only 
"yf 


void 
genericCB(Widget widget, XtPointer client_data, XtPointer call_data) 
{ 

Deter entecaata 1— NULL) 


{ 
Pranc&("Generic callback [%s] \n",~ (char 7 jicitent data); 


} 


/* 
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* Open file dialog callback. Displays a file selection dialog to the user. 
* The data for this callback is passed through the client data as a pointer 
* to a FILEDLG DATA structure. User input is returned through the fileokcCB 
* callback. The selected file will be opened and loaded into the query/spec 
* text widget. 
ahi 

void 


openCB (Widget widget, XtPointer client_data, XtPointer call _ data) 
{ : 
FILEDLGS=DATAS “data — (PILEDLG DATA *) clienetdacd, 

Static FILEDLG DATA ok data; 

Widget fsdialog; 

Arg args([20]; 

Cardinal n; 

XmString title = XmStringCreateSimple("Open Query Specification"); 
XmString dirmask = XmStringCreateSimple("*.psdl"); 


/* 
* Create the file selection dialog using a directory mask so that the user 
* only sees 
oo 


no UF 
SETARG(args[n], XmNdirMask, dirmask, n); 
SETARG(args[(n], XmNdialogTitle, title, n); 


fsdialog = XmCreateFileSelectionDialog(data->parent, "sbsdialog", args, n); 


he (save Grrectory )= NULL) 
Set_Res_String(fsdialog, XmNdirectory, save_directory); 


XmStringFree (title); 
XmStringFree (dirmask) ; 


/* 

* Change the parent widget to the file selection dialog so we can close it 
* and not its parent. The rest of the data is pasted through. 

27 


ok data.parent = fsdialog; 
ok data.fname text = data->fname_text; 
ok data. Cexe = data->texe, 


ype 
* Add the callbacks to the OK and cancel buttons. 
a7 


XtAddCallback(fsdialog, XmNokCallback, 
(XtCallbackProc) fileokcB, 
(XtPointer) & ok_data); 


XtAddCallback(fsdialog, XmNcancelCallback, 
(XtCallbackProc) filecancelCB, 
(XtPointer) fsdialog); 


XtManageChild(fsdialog); 


* Save file as callback. Displays a file selection dialog to the user. The 
* data for this callback is passed through the client data as a pointer toa 
FILEDLG DATA structure. User input 1s returned through the saveasokCB 
* callback. The query/spec text will be saved into the selected file. 
* 
/ 


void 
saveasCB(Widget widget, XtPointer client_data, XtPointer call_data) 
{ 

FILEDLG_DATA *data = (FILEDLG_DATA *) client_data; 

Static FILEDLG_DATA ok_data; 

Widget fsdialog; 

Arg args[20]; 

Cardinal n; 


aml 


xmString title = XmStringCreateSimple("Save Query Specification"); 
XxmString dirmask = XmStringCreateSimple("*.psdl") ; 


/* 
* Create the file selection dialog using a directory mask so that the user 
*"only sees the PSDL specitication files. 
si 


ne= 30; 
SETARG(args(n], XmNdirMask, dirmask, n); 
SETARG(args[n], XmNdialogTitle, title, n); 


fsdialog = XmCreateFileSelectionDialog(data->parent, "Save Query Specification as:", 
args, nN)? : 


XmStringFree (title); 
XmStringFree (dirmask); 


i 
* Change the parent widget to the file selection dialog so we can close it 
* and not its parent. The rest of the data is pasted through. 
7 


Ok datda.parent = fsdialog; 
ok_data.fname text = data->fname_text; 
OkpG@ata. text --data->text; 


XtAddCallback(fsdialog, XmNokCallback, 
(XtCallbackProc) saveasokCB, 
OSEPOInter) 7& Ok data); 


XtAddCallback(fsdialog, XmNcancelCallback, 
(XtCallbackProc) filecancelCB, 
(XtPointer) fsdialog); 


XtManageChild(fsdialog) ; 


* Save file callback. The data for this callback is passed through the client 

* data as a pointer to a FILEDLG DATA structure. The query/spec text will be 
saved into the currently open file. If a file has not been opened the save 
as callback is used to solicit a file name from the user. 


7 


void 
SaveCBiNadget Wldaget, XtPointer sclient data, =xtrointer call data) 
{ 

FILEDLG DATA *data = (FILEDLG DATA *) client data; 

char *string = XmTextGetString(data->text); 

char *filename = gettext (data->fname text); 


if (filename == NULL) 

{ 

saveasCB(widget, client_data, call _ data); 

} 

else 

{ 

if (string != NULL) 

{ 
savetext(widget, filename, string); 
XtFree (string); 

} 


XtFree (filename) ; 


} 


—— 


The user changed the filename in the text window. This is activated when the 
user types a carriage return and the text window has the focus. The data for 
this callback is passed through the client data as a pointer to a 

FILEDLG DATA structure. The specified file will be opened and loaded into 
the query/spec text widget. 


+ + + + FF OF 
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void 
textchangedCB (Widget widget, XtPointer client data, XtPointer call data) 


{ 


— 


+ + * + + 


FILEDLG DATA *data = (FILEDLG DATA *) client data; 
eiar “string, 
char *Epletiate = gettext(data->tname text); 


/* 
* If user entered a file name try to display it in the text window. If the 
* user cleared the file name clear the text window. 


es 
if (filename != NULL) 
{ 
if (LoadFile(filename, &string) != -l && string != NULL) 


{ 
MMLeXESCESelLing(data--text, String); 
XtFree (string); 
} 
XtFree(filename); 
) 
else 
{ 
XmTextSetString(data->text, ""); 
) 


Create a new query spec callback. The data for this callback is passed 
through the client data as a pointer to a FILEDLG DATA structure. Open the 
Syntax Directed Editor for the user to input a new query/spec. After the 
editor is closed the file is saved in the file query.psdl. The query/spec 
text display is updated. 


void 
newCB (Widget widget, 


XtPointer client data, 
AtPointer call data) 


FILEDLG DATA *data = (FILEDLG DATA *) client_data; 

Ls 
* Pass null for the file name and text string so that the editor will 
* start with an empty specification. 
af 


char *string = NULL; 
char *filename = NULL; 


editfile(data, &filename, &string); 


/* 
* Edit existing query spec callback. The data for this callback is passed 
* through the client data as a pointer to a FILEDLG DATA structure. Open the 
* Syntax Directed Editor for the user to input a new query/spec. After the 
* editor is closed the file is saved in the specified file or query.psdl if 
* one is not specified. The query/spec text display is updated. 
* 

void 


editCB(Widget widget, 


XtPointer client_data, 
ACEOInger calli data) 


FILEDLG DATA “data = {(FILEDLG DATA *) client data; 
f* 
* get the file name and text string so that they will be loaded into the 


* editor when it starts. 
a 


Be 


—— 


+ + + + £ + + 


char *string = XmTextGetString(data->text); 
char *filename = XmTextGetString(data->fname text); 


editfile(data, &filename, &string); 


OK callback for the file selection dialog. The data for this callback is 
passed through the client data as a pointer to a FILEDLG DATA structure and 
the call data as pointer to a XmFileSelectionBoxCallbackStruct. The file 
name is take from the call data and the file name text is updated and the 
query/spec text display is loaded with the files contents. 


Static void 
fileokCB(Widget widget, XtPointer client data, XtPointer Gali yddata) 


{ 


FILEDLG DATA *data = (FILEDLG DATA *) client data; 
XmFileSelectionBoxCallbackStruct *ptr; = 
char *string; 

char *filename; 


/* 
* Convert the file name to a character string. 
oy 
ptr = (xAmFileSelectionBoxCallbackStruct *) call data; 
XmStringGetLtoR(ptr->value, XmSTRING_DEFAULT_CHARSET, &filename) ; 
/* 
* If the user did not select a file we are done 
wes 
if (filename != NULL) 
{ 
/* 


* Save the directory for the next time the user wants to open a file. 
* This will make the task of entering multiple files from the same 
* directory easier. 

7 


1£ (Save directory != NULL) 
XtFree(save directory); 


save directory = getdirname (filename) ; 


/* 
* Display the file name in its text widget. This is also the place we 
* save the file name for later use. 
ae 


xXmTextSetString(data->fname_text, filename); 
/* 


* Display the specification in its text widget. If their was an error 
* loading the file tell the user. 


7 

if (LoadFile(filename, &string) == -1) 

{ 
ModalWarningDialog(data->parent, "Error", "Error loading file"); 

} 

if (string != NULL) 

{ 
XmTextSetString(data->text, string); 
XtFree(string); 

} 

} 

f= 


* Take the dialog box off of the screen and free up its data 
a 
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XtUnmanageChild(data->parent) ; 
XtDestroyWidget (data->parent); 
) 


pe 
* Cancel callback for the file selection dialog. 
ay 


Static void 
PilecancelCB (Widget widget, XtPointer client data, XtPointer call data) 
{ 

XtUnmanageChild((Widget) client_data); 

XtDestroyWidget ( (Widget) client data); 


OK callback for the save as file selection dialog. The data for this 
callback is passed through the client data as a pointer to a FILEDLG DATA 
structure and the call data as pointer to a XmFileSelectionBoxCallbackStruct. 
The file name is take from the call data and the query/spec text is save to 
the file. 

/ 


+ oF OF oF OF OF Ft 


Static void 
SaveasokCB(Widget widget, XtPointer client_data, XtPointer call data) 
{ 
FILEDLG DATA *data = (FILEDLG DATA *) client_data; 
XmFileSelectionBoxCallbackStruct *ptr; 
char *String = XmTextGetString(data->text); 
char *filename; 


/* 

* Convert the file name to a character string. 

ay 
ptr = (XmFileSelectionBoxCallbackStruct *) call_data; 
XmStringGetLtoR(ptr->value, XmSTRING DEFAULT CHARSET, &filename) ; 
/* 

* Take the dialog box off of the screen and free up its data 

7 


XtUnmanageChild(data->parent) ; 
XtDestroyWidget (data->parent) ; 


/* 
* If the user did not select a file we are done 
a), 

if (filename == NULL) 

return; 

/* 


* Save the directory for the next time the user wants to open a file. This 
* will make the task of entering multiple files from the same directory 


* easier. 
ei 
if (save_directory != NULL) 


eruce (ody om Tectony) a 
Save directory = getdirname (filename) ; 


/* 

* Display the file name in its text widget. This is also the place we save 
* the file name for later uSe. 

eo 


XmTextSetString(data->fname_text, filename); 


/* 
* If the specification text is not empty save it into the file. 
ayy, 


4] 


} 
j/* 


1f (string != NULL) 

{ 

savetext(data->parent, filename, string); 
XtFree(string); 

} 


* Edit new or existing query spec. This will be changed to call the syntax 
* directed editor (SDE) from CAPS. 


iy d 


State vod 
editfile(FILEDLG DATA * data, char **filename, char **string) 


{ 


GC: 


* + © oe Fe oe ek Oe OF 


[* 
* Open the editor with the file name and specification so the use can make 
* changes. 
ay 
SDE(data->parent, filename, string); 
/* 
* If the user did not save the specification we are done 
my 


if (*string == NULL) 
{ 


if (*filename != NULL) 
XtFree(*filename) ; 
return; 
} 
es : 
* If the user did not enter a file name use the default 
ot 
if (*filename == NULL) 
{ 
*filename = “query.psdl"; 


savetext(data->parent, *filename, *string); 
xmTextSetString(data->fname_text, *filename); 


} 


else 
{ 


savetext(data->parent, *filename, *string); 
xmTextSetString(data->fname_ text, *filename); 
XtFree(*filename) ; 
} 
/* 
* Display the specification in its text widget. 
as 


XmTextSetString(data->text, *string); 
XtFree (*string); 


DISPLAYPROGRESS.H 


$Id: DisplayProgress.h,v 1.4 1998/01/18 17:40:48 greg Exp $ 
DisplayProgress.h -- Software Base Search Interface 
Header file for the progress display. 


Naval Postgraduate School 
January 13, 1998 


Written by Gregory L. Meckstroth 
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* 


of 


void 
Enita2iize adisplay(Widget parent) ; 


void 
elearpdisplay (char *titiie) ; 


void 
home_display(void); 


void 
display message(char *message) ; 


D. DISPLAYPROGRESS.C 


/* 
cs Sideebespruayerogress.¢,v 1.4 1998/01/18 17:40:48 ‘qreq Exp § 
8 
DisplayProgress.C -- Software Base Search Interface 
Source code for the progress display. 


Entry points: initilize display clear display display message 


Naval Postgraduate School 
January ell, 29968 


Written by Gregory L. Meckstroth 


+ + oF OF OF OF OF OF OF OF OF OF 


ie 


#include <stdio.h> 


#include <Xm/Xm.h> 
#include <Xm/Text.h> 
#include <Xm/Form.h> 
#include <Xm/ScrolledwW.h> 
#include <Xm/PushB.h> 


#include "Gui.h" 
pine lude “Utils. nh” 
#include "DisplayProgress.h" 


/* 
* Declarations for local functions. 
raf 


Stacic void 
lem ssCR(Wldaget widgebl,= xt Pointer client data, = trointer cal ledatea) 


px 

* The following widgets are global, to this routine, to minimize the effort in 
* interfacing the display routines to the ADA search code. 

nf 


static Widget display window = NULL; 
static Widget text_display = NULL; 


/* 
* Initilize the display widgets 
a7 
void 
initilize display(Widget parent) 
{ 
WHaget Cismiss Den, 


XMSEEINng xmsString; 
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Arg args([20); 
Cardinal mn; 


oi text display =] NuEE) 
PSLULT + 
/* 
* Setup the display wdzralog 
ag 
na OF 


SETARG(args[n], XmNautoUnmanage, False, n); 
SETARG(args[n], XmNwidth, DIALOG WIDTH, n); 
SETARG(args[(n], XmNheight, 1.5 * INFO WINDOW HEIGHT, n); 
SETARG(args(n], XmNnoResize, False, n); - 


display window = XmCreateFormDialog(parent, "sbsdialog", args, n); 


f* 
* Add button to the bottom of the dialog box 
es 


xmstring = XmStringCreateSimple("Dismiss") ; 

dismiss btn = XtVaCreateManagedWidget ("sbslabel", 
xmPushButtonWidgetClass, display window, 
XmNlabelString, xmstring, 
XmNwidth, BUTTON WIDTH, 
XmNheight, BUTTON HEIGHT, 
xmNleftAttachment, XmATTACH_ FORM, 
XmNleftOffset, 20, 
XmNrightAttachment, XmATTACH_NONE, 
XmNtopAttachment, XmATTACH_ NONE, 
XmNbottomAttachment, XmATTACH_ FORM, 
XmNbottomOffset, 10, 
NULL) ; 

XmStringFree(xmstring) ; 


XtAddCallback(dismiss_ btn, 
XmNactivateCallback, 
(XtCallbackProc) dismissCB, 
(XtPointer) display window); 


XtManageChild(dismiss_ btn); 


/* 
* Add the scrolled text window. This is attached to the top of the dialog 
* box and the top of the dismiss button. 
a 


n = 0; 

SETARG(args[(n], XmNeditMode, XmMULTI_LINE EDIT, n); 
SETARG(args[n]), XmNeditable, False, n); 
SETARG(args(n]), XmNtraversalOn, False, n); 
SETARG(args(n], XmNcursorPositionVisible, False, n); 
SETARG(args[(n], XmNleftAttachment, XmATTACH_FORM, n); 
SETARG(args[(n], XmNleftOffset, 5, n); 

SETARG(args(n], XmNrightAttachment, XmATTACH_FORM, n); 
SETARG(args(n], XmNrightOffset, 5, n); 

SETARG(args(n], XmNtopAttachment, XmATTACH FORM, n); 
SETARG(args(n], XmNtopOffset, 5, n); 

SETARG(args[n}, XmNbottomAttachment, XmATTACH WIDGET, n); 
SETARG(args(n], XmNbottomWidget, dismiss btn, n); 
SETARG(args{n]), XmNbottomOffset, 5, n); 
SETARG(args(n]), XmNresizable, True, n); 


text_display = XmCreateScrolledText (display window, “sbstext”, args, n); 


XtManageChild(text_display); 
} 


/* 
* Clear the display and change the dialog title. 
ai 

void 
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eléar display (char est1tls) 
{ 
1f (display window != NULL && title != NULL) 
( 
Set Res String(display window, XmNdialogTitle, title); 
) 


if (text display != NULL) 
MMT GRESSESEDING(LEXerdusplay, “9 ); 


if (!XtIsManaged(display window) ) 
XtManageChild(display window) ; 
} 


J 
* scroll display to so first line 1s a the top of window 


oe 


void 
home display (void) 
{ 
if (text display != NULL) 
MIPexescrel (text display, —-1000). 
} 


ye 
* Display progress messages and help information. 
ou 


void 
display message(char *message) 
{ 
XtAppContext app context; 
XtInputMask mask; 


Amrextinsert (text display, 10000, message), 


app _ context = XtWidgetToApplicationContext (text_display); 
while ((mask = XtAppPending(app_ context) )) 
XtAppProcessEvent (app context, mask); 

} 


v= 
* Callback to take the progress display off of the screen. 
a 


Static void 

dismissCB(Widget widget, 
XUPOinter Client data, 
AEPointer call data} 


if (XtIsManaged( (Widget) client_data) ) 
XtUnmanageChild( (Widget) client data); 


E. GUI.H 


Sy 


+ ob OF OF OF OF OF oF oF + ot ot Ft 


SId: Gui.n,v 1.3 1998/01/16 17 :29-38egreg Exp $ 
Gui.h -- Software Base Search Interface 
Header file of the common GUI definitions. 


Naval Postgraduate School 
January 13, 1998 


Written by Gregory L. Meckstroth 


oa 
> 


45 


+ 


+ 


* 


Define the location of the software base. It is assumed that the location 
will be static and that the CAPS system will be rebuilt for different 
systems. 


af 


#define SBROOT "/home/greg/Thesis/SoftwareBase/" 


j/* 


* 


oad 


Define the size of the common widgets and buffers. 


#define MAXBUFSIZE 1024 

#define DIALOG WIDTH 600 

#define DIALOG HEIGHT 950 

#define INFO WINDOW_WIDTH (DIALOG WIDTH-100) 
#define INFO WINDOW_HEIGHT 250 

#define BUTTON WIDTH 77 

"define BUTTON WHE IGHi 32 


i * 


* 


* 


Si 


ah 


Define a macro to set the Motif arguments. 
Note: indent wants to move the increment of n to a separate line defeating 
the standard Motif style. 


#define SETARG(arg,name,value,n) XtSetArg(arg,name, value) ;nt+; 


5 


ae 


+ oF OF * OF OF OF OF OF OF OF OF 


p> 


* 


sys 


GUL.C 


SId: HelpMessages.h,v 1.3 1998/01/25 22:49:08 greg Exp $ 
Menu.h -- Software Base Search Interface 
Header file for the GUI menus. 


Naval Postgraduate School 
January 13, L998 


Written by Gregory L. Meckstroth 


The first string is used as the help dialog title 


static const char *maintenance_ help message[] = 


{ 


"Maintenance Help", 
" CAPS SOFTWARE BASE SEARCH \n", 


Ahi in” ‘ 

od NAVAL POSTGRADUATE SCHOOL \n", 
a MONTEREY, CALIFORNIA \n", 

. January 11, 1998 \n", 

ri i 


"Initialize components in the CAPS software base. This dialog box \n", 
"displays the PSDL specification and component file list. The input \n", 
"consists of the component specification in PSDL and the component \n", 
"file list. The spec file name can be changed by typing the new name \n", 
"in the PSDL Spec window. After entering the file name press the enter \n", 
"key to update the spec display. \n", 

" ni 

"Each component in the Software Base is stored in a separate directory. \n", 
"After entering all files for a component the user can initialize the \n", 
"component directory structure by pressing the ‘Init DIR' button or \n", 
"through the Init menu. After the component directory is initialized \n", 
"the use can enter another component. This can be repeated until all \n", 
"components have been entered. Then the Software Base must be \n", 
"initialized by pressing the ‘Init SB’ button or through the Init menu. \n", 


ety 
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“All component files are copied to the component directory no user \n", 
"files will be deleted. \n", 

US gad ; 

"The Spec menu allows the user to manage the PSDL query. \n", 

i New: Starts the Syntax Directed Editor to input a new query. \n", 


ve Yn“ 2 

‘ Open: Open an existing query file. \n", 

vt Te. 

e Edit: Starts the Syntax Directed Editor to edit the current query. \n", 
arn : 

. Save: Save the current query. \n", 

AT ; 

“ SaveAs: Save the current query in a user specified file. \n", 
Nhe g 

: Close: Close the search dialog. \n", 

A ee 

Exit Exit the program. \n'; 

One ; 


“The component menu allows the user to manage the component file list. \n", 
y Add Component files: \n", 


Tie 

a Clear Component file list: \n", 

be NT ce 

" Glear able in’, 

“xn ; 

"“BuUcecoOns. \n, 

Ue aad : 

"Dismiss: Close the maintenance dialog. \n", 

NT ae 

"Init DIR: Initialize the component directory. \n", 
eS 

“Init SB: Run the ADA initialization for the Software Base. \n", 
tt Shes 

eClear Fin Clear the fale list. \n", 

vt A : 


"Clear ALL: Clear file list and Component specification. NBS, 
(char *)NULL 
be 


a= 
* The first string is used as the help dialog title 
eo). 


Sratie COnstschar ~Ssearch help message] = 
{ 
"Search Help", 
i CAPS SOFTWARE BASE SEARCH \n", 


Seer Ys , 

se NAVAL POSTGRADUATE SCHOOL \n", 
. MONTEREY, CALIFORNIA \n", 

i January 11,, 19938 \n' 

tt Vn, 


"Search and retrieval of components from the CAPS software base. This \n", 
"dialog box displays the PSDL query, profile filtering and Signature \n", 
“matching results. The input consists of the query specification, \n”, 
"Minimum profile rank and minimum signature rank. The user can change \n”, 
“the minimum rank by entering a new value in the appropriate text \n", 
"window. The query file name can be changed typing the new name in \n", 
"the PSDL Query window. After entering the file name press the enter \n", 
"key to update query display. The query must be stored in a file for \n", 
“the search routines to work. If the user does not supply a file \n", 
"name the default query.psdl will be used. \n", 

Nas 

"After running the search the user can view the results and select \n", 
"the appropriate component by pushing the toggle button next to the \n", 
"component name. Pushing the OK button will return the selected \n", 
"component. An"; 


Ne 
"The Query menu allows the user to manage the PSDL query. \n", 

New: Starts the Syntax Directed Editor to input a new query. \n", 
é Open: Open an existing query file. \n", 

in Edite Starts the Syntax Directed Editor to edit the current \n", 

oj quesy. \n", 

“ Save: Save the current query. \n", 
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yy 
iF 


SaveAs: Save the current query in a user specified file. \n", 

: Close: Close the search dialog. \n", 

‘ Exit : EXit the program. \n", 

PND 

“The Search menu allows the user to run the software base search. \n", 
u Start: Start the software base search. vn", 

te vo 

PBUECEONS= An y 

4 OK: Exits the dialog and returns the selected component name. \n", 
i search: Start the software base search. \n", 

f Cancel: Exteel aialog.. \n", 

(char *)NULL 


* The first string is used as the help dialog title 


mf 


static const char *version_message[] = 


{ 


O 


~~ 


+ oF OF OF OF OF 2 OF OF OF OF OF OF 


a 
+ 


“Version, 

: CAPS SOFTWARE BASE SEARCH \n", 
or 

a NAVAL POSTGRADUATE SCHOOL \n", 
nm MONTEREY, CALIFORNIA \n", 

s January li, 1998. \n'= 

2 SRevision: 1.35 5\n" 

A Ne ; 


(char = NULL 


HELPMESSAGES.H 


sid: HelpMessages.h,v 1.3 1998/01/25 22:49:08 greg Exp §$ 
Menu.h -- Software Base Search Interface 
Header file for the GUI menus. 


Naval Postgraduate School 
January 13, 1998 


Written by Gregory L. Meckstroth 


* The first string is used as the help dialog title 


wa f 


static const char *maintenance help message[] = 


{ 


"Maintenance Help", 
fa CAPS SOFTWARE BASE SEARCH \n", 


ry. ; 

: NAVAL POSTGRADUATE SCHOOL \n", 
MONTEREY, CALIFORNIA \n", 

i‘ January 11, 1998 \n", 

An” ; 


"Initialize components in the CAPS software base. This dialog box \n", 
"displays the PSDL specification and component file list. The input \n", 
"consists of the component specification in PSDL and the component \n", 
"file list. The spec file name can be changed by typing the new name \n", 
"in the PSDL Spec window. After entering the file name press the enter \n", 
"key to update the spec display. \n", 

aNeT es ; 

"Each component in the Software Base is stored in a separate directory. \n", 
"After entering all files for a component the user can initialize the \n", 
"component directory structure by pressing the: ‘Init DIR’ button or \n", 
"through the Init menu. After the component directory is initialized \n", 
“the use can enter another component. This can be repeated until all \n", 
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"components have been entered. Then the Software Base must be \n", 
Pimltdalizead.ayspressing che ‘Init SB button or through the Init menu. \n", 
e Nios 

“Riiecomponent files ate copied to the component directory mo user \n", 
"files will be deleted. \n", 

re STi : 

"The Spec menu allows the user to manage the PSDL query. \n", 

4 New: Starts the Syntax Directed Editor to input a new query. \n", 


tf POR = 

u Open: Open an existing query file. \n", 

ee XTi, 

i Edit: Starts the Syntax Directed Editor to edit the current query. \n", 
i 8 olay ; 

Save: Save the current query. \n", 

ee Ne; 

i SsaveAs: Save the current query in a user specified file. \n", 
ee n> 

i Close: Close the search dialog. \n", 

iy Ne, 

EXEts okt tthe program. \n", 

ee in ; 


“The component menu allows the user to manage the component file list. \n", 
a Add Component files: \n", 


ee Nie, 

Clear Component file list: \n", 

oe An" P 

si clear all: \n", 

o Xn, 

SBUCeCOnS. a > 

" NO 

"Dismiss: Close the maintenance dialog. \n", 

we An? 

"Init DIR: Initialize the component directory. \n", 
ri j 

"Init SB: Run the ADA initialization for the Software Base. \n", 
NAO 

Helear FL: Clear the fle list. \n"", 

ers: 


"Clear ALL: Clear file list and Component specification. \n", 
(ehnar *) NUL 
}; 


/* 
Bvine first string 1s used as the help dialog title 
any 


Static const char *search help message([] = 
{ 
“Search Help", 
A CAPS SOFTWARE BASE SEARCH \n", 


id ae 

re NAVAL POSTGRADUATE SCHOOL \n", 
CS MONTEREY, CALIFORNIA \n", 

7 vanuary Ll, 199s \no; 

e Xn" P 


"Search and retrieval of components from the CAPS software base. This \n", 
"dialog box displays the PSDL query, profile filtering and signature \n", 
"matching results. The input consists of the query specification, \n", 
"minimum profile rank and minimum signature rank. The user can change \n", 
"the minimum rank by entering a new value in the appropriate text \n", 
“window. The query file name can be changed typing the new name in \n", 
"the PSDL Query window. After entering the file name press the enter \n", 
“key to update query display. The query must be stored in a file for \n", 
"the search routines to work. If the user does not supply a file \n", 
"name the default query.psdl will be used. \n", 

e \n” ; 

"After running the search the user can view the results and select \n", 
"the appropriate component by pushing the toggle button next to the \n", 
"Component name. Pushing the OK button will return the selected \n", 
"component. \n", 


te rn ; 

"The Query menu allows the user to manage the PSDL query. \n", 

- New: Starts the Syntax Directed Editor to input a new query. \n", 
: Open: Open an existing query file. \n", 
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a Bait: starts the Syntax Directed sFditor tov editethe current. \n7- 
i GUC EYy eyo 
. Save: Save the current query. \n", 
: saveAs: Save the current query in a user specitied file, \n", 
7s Close: Close the search dialog; nn. 
" Exits EXit the program. \ni'? 
tie 
"The Search menu allows the user to run the software base search. \n", 
wi Start: Start the software base search. \n", 
ve Tos 
YBUEtoOnS +1, te 
4 OK: Exits the dialog and returns the selected component name. \n", 
Search: Start the software base search. \n", 
- Cancel; Exit. therdialog. \n", 
(char *)NULL 
}3 


/* 
* The first string is used as the help dialog title 
a! 


Static const char *version_message[] = 


{ 


"Version: , 

q CAPS SOFTWARE BASE SEARCH \n", 
eT 

: NAVAL POSTGRADUATE SCHOOL \n", 
2 MONTEREY, CALIFORNIA \n", 

i January 11, 1998 \n", 

" SRevision: 1235. - 

TEN Tico 


(char *)NULL 


MAINTENANCEDIALOG.H 


= 


SS 


+ + + + OF + OF OF OF 0 FF OF 


$Id: MaintenanceDialog.h,v 1.3 1998/01/25 22:49:08 greg Exp $ 
MaintenanceDialog.h -- Software Base Search Interface 
Header file for the initialization dialog. 


Naval Postgraduate School 
January 13, 1998 


Written by Gregory L. Meckstroth 
/ 


void MaintenanceDialog(Widget parent); 
void ModalMaintenanceDialog(Widget parent); 


I. MAINTENANCEDIALOG.C 


Ng 
* Sid: MaintenanceDialog.C,v 1.8 1998/01/25 22:49:08 greg Exp $ 
* 
* MaintenanceDialog.C -- Software Base Search Interface 
* 
* Source code for the CAPS software base maintenance dialog. This dialog setups 
* the files needed by the ADA routines and runs the initialization. It is 
* assumed that the components are in separate directories and that these are 
* the only directories in the software base. All of the directory names in the 
* ‘software base are written te the sbeheader dat file. This Evie rs Chen used 
* as input to the initialization. 
* 
* Entry points: MaintenanceDialog, ModalMaintenanceDialog. 
*& 
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* Naval Postgraduate School 
* January 13, 1998 


* 


* Written by Gregory L. Meckstroth 


*« 


oor 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


/ 


<stdio.h> 
eStelioah> 
<lostream.h> 
<string.h> 
<sys/types.h> 
<sys/stat.h> 
<Unis tdome. 
<dirent.h> 


<Xm/Xm.h> 
<Xm/Text.h> 
<Xm/Label.h> 
<Xm/ScrolledwW.h> 
<Xm/Form.h> 
<Xm/RowColumn.h> 
<Xm/Separator.h> 
<Xm/PushB.h> 
<Xm/FileSB.h> 


Gale le 
Menuenh: 
"SearchDialog. 
SDEen 
cablpacks .n” 
Utes. 
"DisplayProgress 
"PromptDialog.h" 
"MaintenanceDialog.h" 


he 


Police 


The INIT DATA structure is used to pass data to the callback routines. 
parent: widget to use as the parent for dialog construction. 

EliSt text: text widget for component file list. 

fname_ text: text widget for file name display. 

Spec text: text widget for specification display. 
/ 


eee 


sLEUCC INET DATA 

{ 
Widget parent; 
Widget fllist text; 
Widget fname text; 
Widget spec text; 

); 


Zs 
* Declarations for local 
ad 


functions. 
Static Voila 
clear(INIT_DATA * data); 


static int 


initdirectory(char *sfname, INIT DATA * data); 


Static void 
closeCB(Widget widget, XtPointer client data, XtPointer call_data); 


static void 
Sx TLE WIdGet Widget, AcCroOinter client data, AtPointer call data); 


Static vo1d 
initdirCB(Widget widget, XtPointer client data, XtPointer call data); 


Static void 
InltsbeB(Widget widget, XtPointer client data, XtPointer call data); 


5] 


Stacie oid 
addokCB (Widget widget, XtPointer client data, XtPointer call data); 


Statics vol1d 
addcancelCB(Widget widget, xXtPointer client data, XtPointer call data); 


Static void 
addCB(Widget widget, XtPointer client_data, XtPointer call data); 


Static void 
ClearflCB(Widget widget, XtPointer client_data, XtPointer call data); 


SCatic void 
clearallICB (Widget widget, XtPointer client data, XtPeinter call data); 


reas 
* Declaration for the “ADA export" initialization routine. 
me 


extern, € §sbuinit(char “sb root directory, char “sb header fi legname:, 


/* 
* Global storage for the user selected spec file and component directory. 
aes 


NULL; 
NULL; 


static char *save_ spec filename 
Stacie char “save component dir 


it 


j= 
‘ Uscd by the mogalesearch dialog. done with dialog while true the event meer 
* will continue running. Setting this to false allows the event loop to exit. 
Pe 


Static int done with dialog; 

/* 

* Display the software base maintenance modal dialog. 
a 


void 
ModalMaintenanceDialog(Widget parent) 
{ 


MaintenanceDialog(parent); 


/* 

* Wait for a response to the dialog. When the Dismiss or cancel button is 
‘presscdedone with dialog will be set true causing the loop Co terminate. 
Ty 

dememwithvdialog = False, 

while (!done_with_dialog) 

XtAppProcessEvent (XtWidgetToApplicationContext (parent), XtIMA11); 


} 


7 
* Display the software base maintenance dialog. 
a 


void 
MaintenanceDialog(Widget parent) 
{ 
Widget 
Widget 


Spee fname texte; 
dialog window; 


Widget 
Widget 
Widget 
Widget 
Widget 
Widget 
Widget 
Widget 
Widget 
Widget 
Widget 


menubar; 
specmenu; 
componentmenu,; 
initmenu; 
helpmenu; 
previous; 
spec_label; 
scrolled _spec_window; 
Spec Cexc, 
initsb_btn; 
Ini tdilr ben; 


ay 


WidGeteclearrl Ibtn, 

WlOGe ce heg rd tt Ein, 

Widget dismiss btn; 

Widget caps_label, 

Widget filelist_label; 

Widget scrolled filelist window; 
Widger ri lelistscext, 


Arg args[20]}; 
Cardinal. n; 


char * Erte: 
ANSeEIng xMStering; 


/* 
* The following static varables are used by callbacks after 
* MaintenanceDialog returns. 


ne 


static FILEDLG DATA ciledigudaca, 
Static INIT DATA. ini tidata, 


/* 

* Create the dialog box. 

ay 
title = "Software Base Maintenance"; 
hn — 0 


SETARG(args[n], XmNautoUnmanage, False, n); 

SETARG(args[n], XmNwidth, DIALOG WIDTH, n); 

SETARG(args[n], XmNheight, DIALOG HEIGHT - INFO WINDOW HEIGHT, n); 
SETARG(args[n], XmNnoResize, True, n); 

SETARG(args[n], XmNtitle, title, n); 

SETARG(args[n], XmNiconName, title, n); 


dialog window = XmCreateFormDialog(parent, "sbsdialog", args, n); 


/* 
* Save the dialog widget for later use. 
oh 


filedlg_data.parent = dialog window; 
init_data.parent = dialog_window; 


/* 
* Create menubar. 
= 

n = OQ; 


SETARG(args[n], XmNtopAttachment, XmATTACH FORM, n); 
SETARG(args[n], XmNleftAttachment, XmATTACH FORM, n); 
SETARG(args[n), XmNrightAttachment, XmATTACH FORM, n); 

menubar = XmCreateMenuBar (dialog window, "sbsmenubar", args, Nn); 
previous = menubar; 


XtManageChild (menubar) ; 


/* 
* Create spec menu. Callbacks for this menu are in Callbacks.C. 


my 
specmenu = CreateMenu(menubar, "“sbsmenu", "Spec", 'S'); 


(void)AddMenuItem(specmenu, “new", 
"New" 
PCtviltN =. Crerbaxeyon ;)  N, 
(XtCallbackProc) newCB, 
(XtPointer) & filedlg data); 


(void) AddMenulItem(specmenu, "open", 
" Open " ; 
Curie, Ctrl<Keyse 7) 'O', 
(XtCallbackProc) opencsB, 
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(ee rointer)) 6 etl lect gudarca):, 


(void) AddMenulItem(specmenu, "edit", 
PE Guske s 
"Ctri+e”, "Ctrl<Meyse" e's 
(¥e€Gal lbackProc) edi tcB, 
[AUPOInter) € fi ledigudata); 


(void) XtVaCreateManagedWidget ("sep", xmSeparatorWidgetClass, specmenu, 


(void) AddMenultem(specmenu, "save", 
"Save", 
M@eri+s. ‘Ctrlekoyos . 9S", 
(XtCallbackProc) saveCB, 
(XtPointer) & filedlg data); 


(void) AddMenultem(specmenu, “Saveas", 
"Save As", 
Veer th a eeclakeyoa ; "A, 
(XtCallbackProc) saveasCB, 
(XtPointer) & ftiledig data); 


(void) XtVaCreateManagedWidget("sep", xmSeparatorWidgetClass, specmenu, 


(void)AddMenulItem(specmenu, "close", 
“Close”, 
Ctra pe etokoneyow": Th", 
(XtCallbackProc) closeCB, 
(XePointcer) & init data) ; 


(void) AddMenuItem(specmenu, "exit", 
UB te : 
netmitO  o CtricKkeyre”, tx", 
(Steal lbackProc) exitCB, 
(XtPointer) NULL); 


/* 
* Create the component menu. Callbacks are implemented locally 


wa 
componentmenu = CreateMenu(menubar, "sbsmenu", "Component", 'C'); 


(void)AddMenultem(componentmenu, "addfile", 
"Add Component File", 
eerie’, “Ctrl<keyot') or", 
(XtCallbackProc) addCB, 
(SePointer) & init data); 


(void)AddMenulItem(componentmenu, "clearfile", 
"Clear Component Files", 
BCeritey, “CEril<Keyvoe”, 'C*, 
(XtCallbackProc) clearf1CB, 
(XtPointer) & init _data); 


(void) AddMenultem(componentmenu, "clearall", 
"Clear All Files", 
"“CErl+L",, “Ctri<Keyel “ie, 
(XtCallbackProc) clearallCB, 
(XEPOINter) & ime data), 


/* 
* Create the init menu. Callbacks are implemented locally 


x 
initmenu = CreateMenu(menubar, "sbsmenu", "Init", 'I'); 


(void)AddMenulItem(initmenu, "initsb", 
"Initialize Software Base", 
MCEEl+h ye VetricKey>1",) ‘1; 
(XtCallbackProc) initsbCB, 
(MEPOinter) & Init data); 


(void) AddMenulItem(initmenu, "initdir", 
"Initialize Directory”, 
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NULL) ; 


NULG):: 


Vette me cer] <Keyod", DD", 
(XtCallpackProc) initdirces, 
(Rteetiecer, & Inlet data); 


oe 
* Create Help menu. 
a 


helpmenu = CreateHelpMenu(menubar, "sbsmenu", "Help", 'H'); 


j= 
* Label the dialog to let the use know what it is for. 
oh 


xmstring = XmStringCreateSimple("CAPS Software Base Maintenance"); 
Caps label = xAtVacreateManageawidger( sbslabel 
umLabelWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, previous, 
xmNtopOffset, 5, 
XxmNbottomAttachment, XmATTACH_NONE, 
xmNleftAttachment, XmATTACH POSITION, 
XmNleftPosition, 35, 
XmNrightAttachment, XmATTACH_NONE, 


NULL) ; 
XmStringFree(xmstring); 
previous = caps_label; 
/* 


* Spec_label and spec_fname_text display the current spec file name for 
* Chesus er 


a 


xmstring = XmStringCreateSimple("PSDL Spec:"); 
spec label = XtVaCreateManagedWidget ("sbslabel", 
xmLabelWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, previous, 
xmNtopOffset, 5, 
xXmNleftAttachment, XmATTACH POSITION, 
XmNleftPosition, 15, 
NULL) ; 
XmStringFree (xmstring) ; 


spec _fname_ text = XtVaCreateManagedWidget ("sbstext", 
xmTextWidgetClass, dialog window, 
XmNeditMode, XmSINGLE LINE EDIT, 
XmNeditable, True, 
XmNshadowThickness, l, 
XmNmarginHeight, 2, 
XmNcursorPositionVisible, True, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, previous, 
xmNtopOffset, 5, 
XmNleftAttachment, XmATTACH WIDGET, 
xXmNleftWidget, spec label, 
xmNleftOffset, 5, 
XmNrightAttachment, XmATTACH_FORM, 
XmNrightOffset, 10, 
NULL); 


/* 
* Save the widget so that the file and init callbacks can change the name 
* when the user enters a new one. 


1 


Pi léediguccita. cnameweexe —sspec name text, 
ingtedeta-tname text = spec fname text; 


/* 
* This callback will update the file name and spec text if the user types 
* a return in the fname text box. 
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aap 


XtAddCallback(spec_fname_text, XmNactivateCallback, 
(XtCallbackProc) textchangedcB, 
(SUPOlLNter) &. fidedig data), 


xtManageChild(spec_fname_ text); 


/* 
* Setup scrolled window to display spec text. 
af 


scrolled spec _ window = XtVaCreateManagedWidget ("sSbswindow", 
xmScrolledWindowWidgetClass, dialog window, 
XmNwidth, INFO WINDOW WIDTH, 
XmNheight, INFO WINDOW HEIGHT, 
XmNleftAttachment, XmATTACH_FORM, 
XmNrightAttachment, XMATTACH FORM, 
XmNtopAttachment, XmATTACH_WIDGET, 
XxXmNtopWidget, spec_label, 
XmNtopOffset, 5, 
XmNbottomAttachment, XmATTACH NONE, 
XmNresizable, True, 
XmNleftOffset, 5, 
XmNrightOffset, 5, 
XmNbottomOffset, 5, 
XmNscrollingPolicy, XmAUTOMATIC, 
XmNscrollBarDisplayPolicy, XmSTATIC, 
XmNscrolledWindowMarginWidth, 5,7 
XmNscrolledWindowMarginHeight, 5, 
XmNscrollVertical, False, - 
XmNscrollHorizontal, True, 
NULL) ; 


spec text = XtVaCreateManagedWidget ("Sbstext”, 
xmTextWidgetClass, scrolled spec window, 
XmNwidth, INFO WINDOW WIDTH, 
XmNheight, INFO WINDOW HEIGHT, 
XmNeditMode, XmMULTI_LINE EDIT, 
XmNshadowThickness, 0, 
XmNmarginHeight, 0, 
XmNscrollHorizontal, False, 
XmNeditable, False, 
XmNtraversalOn, False, 
XmNcursorPositionVisible, False, 
NULL) ; 


ia 
* Save the widget so that the spec text can be updated when the user 
* changes the file name or edits that text 


ao 


filedigkadta, texts= spec CeXxE, 
init data.spec_text = spec text; 


XmScrolledWindowSetAreas (scrolled_spec_window, 
(Widget) NULL, 
(Widget) NULL, 
Spec CeExE)); 


XtManageChild(spec text); 


ae 
If the user is restarting the dialog try to use the file name that was 


Peenterea 

ae 

if {save_spec_ filename != NULL) 
{ 
Char cext, 


XxmTextSetString(spec_fname_text, save_spec_ filename) ; 


Div (beage tle (save spec tilename, 6 text ) wale. cent = NOEL) 
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wMLEXtSetoLrIng (spec text, text) ; 
XtFree (text); 
) 


XtFree(save_spec_ filename); 
Save Spec (evlename = NULL; 
} 


/* 
- Siveliste lace and eirlelist text display the component file list that 
* will be copied into the component directory 
ah 


xmstring = XmStringCreateSimple("Component Files:"); 
filelist label = XtVaCreateManagedWidget ("sbslabel", 
xmLabelWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, scrolled_spec_window, 
XmNtopOffset, 5, 
XmNleftAttachment, XmATTACH_ POSITION, 
XmNleftPosition, 15, 
NULL) ; 
XmStringFree(xmstring) ; 


scrolled filelist_ window = XtVaCreateManagedWidget ("sbswindow", 
xmScrolledWindowWidgetClass, dialog window, 
XmNwidth, INFO WINDOW _WIDTH, 
XmNheight, INFO WINDOW HEIGHT, 
XmNleftAttachment, XmATTACH_ FORM, 
XmNrightAttachment, XmATTACH_FORM, 
XmNtopAttachment, XmATTACH_WIDGET, 
XmNtopWidget, filelist_label, 
XmNtopOffset, 5, 
XmNbottomAttachment, XAmATTACH NONE, 
XmNresizable, True, 
XmNleftOffset, 5, 
xXMNELGHtOfEset, 5, 
XmNbottomOffset, 5, 
XmNscrollingPolicy, XmAUTOMATIC, 
XmNscrollBarDisplayPolicy, XmSTATIC, 
XmNscrolledWindowMarginWidth, 5, 
XmNscrolledWindowMarginHeight, 5, 
XmNscrollVertical, False, 
XmNscrollHorizontal, True, 
NULL) ; 

previous = scrolled _filelist_window; 


filelist_ text = XtVaCreateManagedWidget ("sbstext", 
xmTextWidgetClass, scrolled filelist_ window, 
XmNwidth, INFO WINDOW WIDTH, 
XmNheight, INFO WINDOW HEIGHT, 
XmNeditMode, XmMULTI_ LINE EDIT, 
XmNshadowThickness, 0, 
XmNmarginHeight, 0, 
XmNscrollHorizontal, True, 
XmNeditable, True, 
XmNtraversalOn, True, 
XmNcursorPositionVisible, True, 
NULL) ; 


/* 

* Save the widget so that the init callbacks can update the file list when 
* the user enters changes. 

oo 


Pia eedaca /olistitexts— sti lelist text, 
xmScrolledWindowSetAreas(scrolled_filelist_window, 
(Widget) NULL, 


(Widget) NULL, 
Fitelise Cext); 


Yi 


XtManageChild(filelist text); 


pe 
* Create the push buttons at the bottom of the dialog box. 
me 


xmstring = XmStringCreateSimple("Dismiss"); 
dismiss btn = XtVaCreateManagedWidget ("sbslabel", 
xmPushButtonWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNwidth, BUTTON WIDTH, 
XmNheight, BUTTON HEIGHT, 
XmNleftAttachment, XmATTACH FORM, 
XmNleftOffset, 20, 
XmNrightAttachment, XmATTACH_ NONE, 
XmNtopAttachment, XmATTACH_NONE, 
XmNbottomAttachment, XmATTACH_FORM, 
XmNbottomoffset, 10, 
NULL) ; 
XmStringFree(xmstring); 


XtAddCallback(dismiss btn, 
XmNactivateCallback, 
(XtCallbackProc) closeCB, 
(AGECiNte Bae dnine data) ; 


XtManageChild(dismiss btn); 


xmstring = XmStringCreateSimple("Init DIR"); 
inltedir Deh = ALVacCreateManagedwWidget ("sbslabel”™, 
xmPushButtonWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNwidth, BUTTON WIDTH, 
XmNheight, BUTTON _HEIGHT, 
XmNleftAttachment, XmATTACH_WIDGET, 
XmNleftWidget, dismiss btn, 
XmNleftoffset, 10, 
XmNrightAttachment, XmATTACH_NONE, 
XmNtopAttachment, XmATTACH_ NONE, 
XmNbottomAttachment, XmATTACH_FORM, 
XmNbottomOffset, 10, 
NULL); 
XmStringFree (xmstring); 


XtAddCallback(initdir btn, 
XmNactivateCallback, 
(CeallbackProc)-i1ne tdi5cH, 
(KEPOinter) & inte data); 


XtManageChild(initdir btn); 


xmstring = XmStringCreateSimple("Init SB"); 

initsb btn = XtVaCreateManagedWidget ("sbslabel", 
xmPushButtonWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNwidth, BUTTON WIDTH, 
XmNheight, BUTTON_HEIGHT, 
xXmNleftAttachment, XmATTACH WIDGET, 
XmNleftWidget, initdir btn, 
XmNleftOffset, 10, 
XmNrightAttachment, XmATTACH NONE, 
XmNtopAttachment, XmATTACH_NONE, 
XmNbottomAttachment, XmATTACH_ FORM, 
XmNbottomOffset, 10, 
NULL) ; 

XmStringFree(xmstring) ; 


XtAddCallback({initsb btn, 
XmNactivateCallback, 
(~cGallbackProc) iInitsbCs, 
(XtPointer) & init data); 


XtManageChild(initsb btn); 
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xmstring = XmStringCreateSimple("Clear FL"); 

clearfl btn = XtVaCreateManagedWidget ("sSbslabel", 
xmPushButtonWidgetClass, dialog window, 
XmNlabelString, xmstring, 7 
XmNwidth, BUTTON WIDTH, 
XmNheight, BUTTON HEIGHT, 
XmNleftAttachment, XmATTACH WIDGET, 
XmNleftWidget, initsb btn, ~ 
XmNleftOffset, 10, 
xmNrightAttachment, XmATTACH NONE, 
XmNtopAttachment, XmATTACH_NONE, 
XmNbottomAttachment, XmATTACH FORM, 
XmNbottomOffset, 10, 
NULL); 

XmStringFree(xmstring) ; 


XtAddCallback(clearfl btn, 
XmNactivateCallback, 
(wECallbackProc) clearfics, 
LXEPOINtECE au nit data); 


KtManagecnitalcleartl btn) ; 


xmstring = XmStringCreateSimple("Clear All"); 
Cclearall btn = XtVaCreateManagedWidget(“sbslabel", 
xmPushButtonWidgetClass, dialog_window, 
XmNlabelString, xmstring, 
XmNwidth, BUTTON WIDTH, 
xmNheight, BUTTON _HEIGHT, 
XmNleftAttachment, XmATTACH_ WIDGET, 
XmNleftWidget, clearfl btn, 
XmNleftOffset, 10, 
XmNrightAttachment, XmATTACH_NONE, 
XmNtopAttachment, XmATTACH NONE, 
XmNbottomAttachment, XmATTACH FORM, 
XmNbottomOffset, 10, 
NULL) ; 
XmStringFree(xmstring) ; 


xtCAddCallback(clearall btn, 
XmNactivateCallback, 
(XtCallbackProc) clearallcB, 
(XtPointer) & init data); 


XtManageChild(clearall btn); 
XtManageChild(dialog_window) ; 


j* 

* Initialize the progress display this is done one time from the search 
dialog orcintesdialog:. 

a 


iilberlize display (parent): 


} 


/* 
* Clear all of the init dialog text displays. 
ae 


static void 
ellear (INIT DATA * data) 
{ 


XmTextSetString (data->fname text, ""); 
XmTextSetString(data->spec text, ""); 
XmTextSetString(data->flist_ text, ""); 


Initialize the component directory. Create the directory using the spec file 
name with out the extension as the directory name. Copy the spec file and 
all files in the file list into the component directory. 

a 


static int 


Do 


initdirectory(char “sfiname, INIT DATA.~ data) 
{ 

char *sbfname; 

char *component; 

char *extension; 

cnar “file; 

char IObuffer(MAXBUFSIZE]; 

chan Fl isit, 

char *path; 

char *newline; 

char *format = “Copying: %s\n To: %5\hi\n 


/* 
Show the user what 1s happening in the progress display. The display was 
cleared by the calling routine. 
7, 


display message("Doing Directory Initilization\n\n") ; 


/* 
* Create the component directory using the spec file name without the 
* extension as the directory name. 
“7 


sbfname = getfilename(sfname) ; 
component = catstrings(SBROOT, sbfname) ; 


extension = strrchr(component, '.'); 
1f (extension != NULL) 

{ 

strepy(extension, “/"); 


} 


sprintf(IObuffer, "Creating directory: %s\n\n", component); 
display message (IObuffer); 


1f (mkdir(component, 0755) == -1) 

{ 

sprintf(IObuffer, “error creating component directory %s\nDone.\n", component); 
ModalWarningDialog(data->parent, "Error", IObuffer); 

return True; 

) 


/* 

'SGcpyeene Spec file into PSDL SPEC which 2s used by the ADA Search 
* routines. For convenience also copy the file into the component 

* ETeCtory . 

a 


file = catstrings(component, "“PSDL SPEC"); 
sprintf (IObuffer, format, sfname, file); 
display message (IObuffer); 
CopyFile(sfname, file); 

XtFree(file); 


file = catstrings(component, sbfname); 
sprintf(IObuffer, format, sfname, file); 
display message (IObuffer); 
CopyFile(sfname, file); 

XtFree(file); 


XtFree(sbfname); 


j* 
* Now copy all of the files in the file list into the component directory 
a 


flist = XmTextGetString(data->flist text); 
newlane = Strcnr(f£list; s\n), 
for (path = flists newline != NULL; newline = strchr(path, '\n')) 


{ 


*newline = ‘'\O'; 
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sbfname = getfilename(path) ; 

file = catstrings (component, sbfname); 
sprintf£(lObuffer, format, path, file); 
display _message(IObuffer); 
CopyFile(path, file); 

XtFree(sbfname) ; 

XtFree(file); 


path = newline + 1; 


} 
XtFree(flist); 


XtFree (component); 
display message("Done\n") ; 


return False; 
} 


/* 
* Callback closes the dialog and saves the spec file name for later. The data 
* for this callback is passed through the client data as a pointer toa 
TSINIT DATA Seructure- 
oA 


Static void 

closeCB(Widget widget, 
XtPointer client data, 
AEPOineer call data) 


INIT DATA *data = (INIT_DATA *) client_data; 


if (save spec filename != NULL) 
PEPbee( sd Veuopce fl ename); 


save_spec_ filename = gettext (data->fname_text); 


if (XtIsManaged(data->parent) ) 
XtUnmanageChild(data->parent) ; 


done with dialog = True; 


} 


/* 
* Callback exits program. 
=/ 


static vold 
exitCB(Widget widget, 
MEPOINnter Cllene data, 
XtPointer call data) 
{ 
exit(0); 
} 


j/* 
* Callback to initialize the component directory. The data for this callback is 
* passed through the client data as a pointer to a INIT_DATA structure. 


ey 


Static vod 

initdirCB(Widget widget, 
PEbQiWeerec lent sddta, 
ACPOInNter call data) 


INIT DATA *data = (INIT DATAe*) client data; 
ehat “Ss name — GeEtCexe (data=-Ename text); 


/* 
* Clear the progress display and change its title 
ay 


clear display("Initializing SB Directory”); 
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/* 
* If the user had not entered a spec file name no need to init directory 
a. 


if (sfname != NULL) 

{ 

/* 

= if the directory inveralization errors Gut den t clear thevdialeag: 
ee 


if (!initdirectory(sfname, data) ) 
clear (data); 


XtFree(sfname); 


} 


Callback to initialize the software base. The data for this callback is 
passed through the client data as a pointer to a INIT DATA structure. If the 
user has entered a spec initialize the component directory first. Then create 
sb_header.dat file before running the initialization routine. 


static void 
initsbCB (Widget widget, 


XtPointer client data, 
AtPoincer call data) 


PNT Deel ew coeds (tNi? DATA *) client data; 
FILE * fp. 

Struct dirent *entry; 

DIR tdirp; 


Sthulelestdterile into, 

long ID = 1000; 

char *sfname = gettext (data->fname_text); 
enar file; 

Glare Header erie name; 


/* 
* Let the user know what is happening 


a 


ellear display("Initializing Software Base”); 
display_message("Doing software Base Initialization \n\n"); 


/* 
* Initialize the component directory if their is a spec name 
ay 

if (sfname != NULL) 

( 

jf * 


* If the initialization errors out stop and give the user a chance to 
* f1x the problems 
a7 


if (initdirectory(sfname, data) ) 
return; 
} 


/* 
* Create the header file in the software base root directory 
aay 
header file name = catstrings(SBROOT, "sb header.dat”); 
fp = fopen(header_file_ name, "w"); 
/* 
* Loop through the software base root directory adding the component 


* directories to the header file 
ay 
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— 


eS ee 


dirp = opendir(SBROOT) ; 


for (entry = readdir(dirp); entry != NULL; entry = readdir(dirp) ) 
{ 
PE (enery--o name G)] == ".") 


continue; 
/* 
* Only add directory names to the header file. 
a 


Piles = catstrings(SBROOT, éntry->d name); 
Dieser epee Le into)) !—.0) 
{ 

closedir(dirp); 

XtFree(file); 

break; 


} 


ties TslteR (tile anto-st mode) )} 

{ 
Epiinekine, “sldiess\n', ID, file); 
ID += 1000; 

) 

AtFree (file); 

} 


closedir(dirp); 
fclose(fp); 


p= 
* Run the ADA software base initialization. Progress messages are displayed 
* to let the user know what is happening 
nef 


sb_init(SBROOT, header file name); 
XtFree (header file name); 


/* 
* Clear the dialog so that the user can enter another spec if needed. 
eh, 


clear (data); 


display message("Done\n"); 


OK callback for adding components to the file list. The data for this 
callback is * passed through the client data as a pointer to an INIT _DATA 
structure and * the call data is a pointer toa 
XmFileSelectionBoxCallbackStruct. The file * name is take from the call data 
and added to the file list text. 


static void 
addokCB (Widget widget, 


XtPointer client data, 
Aueboroeer Call vdata) 


INIT DATA *data = (INIT DATA *) clientyedata; 
XmFileSelectionBoxCallbackStruct *ptr; 
char *filename; 


/* 
* Convert the file name to a character string. 
a7 
ptr = (XmFileSelectionBoxCallbackStruct *) call data; 


xmStringGetLtoR(ptr->value, XmSTRING DEFAULT _CHARSET, &filename); 


/* 
* Take the dialog box off of the screen and free up its data 
+7, 
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XtUnmanageChild(data->parent) ; 
XtDestroyWidget (data->parent) ; 


/* 
* If the user Gid hot select a file we are done 
+f 

1f (filename == NULL) 

return; 

if (save component dir != NULL) 


ACE Lee (Save GOMmpoOnent 7dir) ; 


/* 

* Save the directory for the next time the user wants to open a file. This 
* will make the task of entering multiple files from the same directory 

* easier. 


ty 
Save component dir = getdirname(filename) ; 


/* 
Display the file list in its text widget. This is also the place we save 
* the file list for later use. 


it 


aMmlextinsert(aaca--~flist text, 10000, filename) ; 
XmTextInsert (data->flist text, 10000, "\n"); 
XtFree (filename) ; 


} 


/* 
* Cancel callback for the file list selection dialog. 
te 


static void 
addcancelCB (Widget widget, XtPointer client_data, XtPointer call data) 
{ 

XtUnmanageChild( (Widget) client_data); 

XtDestroyWidget( (Widget) client data); 


* Add file dialog callback. Displays a file selection dialog to the user. 
* The data for this callback is passed through the client data as a pointer 
* to an INIT_DATA structure. User input is returned through the addokCB 
* callback. The selected file will be added to the filelist 
27 
static void 
addCB(Widget widget, 
XtPointer client data, 
XtPointer call data) 


INIT DATA “data = (INIT DATA *) client data; 

static INIT_DATA ok_data; 

Widget fsdialog; 

Arg args[20]; 

Cardinal n; 

XmString title = XmStringCreateSimple("Add to file list"); 


/* 
* Create the file selection dialog. 
ae 

n= 0; 


SETARG(args[n], XmNdialogTitle, title, n); 
fsdialog = XmCreateFileSelectionDialog(data->parent, "sbsdialog", args, n); 
XmStringFree (title); 


if (save_component dir != NULL) 
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Set_Res_ String(fsdialog, XmNdirectory, save_component dir); 


/* 

* Change the parent widget to the file selection dialog so we can close it 
"Sina Mot its parent. The rest of the data is pasted through. 

=f 


ok -data-parent. = fsdialog- 
Sed cae cSt etexXteedarcd-orlist. text; 
Okidata. fname tex = data=>iname text; 


y= 
* Add the callbacks to the OK and cancel buttons. 
1) 


XtAddCallback(fsdialog, XmNokCallback, 
(XtCallbackProc) addokCB, 
(XtPointer) & ok data); 


XtAddCallback(fsdialog, XmNcancelCallback, 
(XtCallbackProc) addcancelCB, 
(XtPointer) fsdialog); 


XtManageChild(fsdialog); 
) 


/* 
* "Callback to Clear the component file list. The data for this callback is 
* passed through the client data as a pointer to a INIT DATA structure. 
Bey 
static void 
CclearflCB(Widget widget, 
AUCPOUNEer client data, 
XtPointer call data) 
PNITOATA "data =" (INIT DATAS meclient data, 


MMTlext€Setestring (data--f£list stext, ""); 
) 


/* 
* Callback to clear the init dialog. The data for this callback is passed 
 Ghrough thewelient data aS a pointer to a INIT DATA structure. 
a 
Static void 
clearallCB(Widget widget, 
AtPointer client_data, 
MUPOinter Call data) 
DPT SATA “data — (INIT PATA ~) client data; 


clear (data); 


J. MENU.H 


slide Menuem,-wel.4 1996/01/18 916:35:45 greg Exp 3 
Menu.h -- Software Base Search Interface 
Header file for the dialogs menus. 


Naval Postgraduate School 
January 13, 1998 


Written by Gregory L. Meckstroth 


* £ + + FF F * FF FF oF F F 
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Widget 

CreateMenu(Widget parent, 
char *name, 
char *label, 
char mnemonic); 


Widget 

CreateHelpMenu (Widget parent, 
char *name, 
char *label, 
char mnemonic); 


Widget 

AddMenultem(Widget parent, 
char *name, 
Char “Label; 
Char “ace texte, 
char *acc_key, 
char mnemonic, 
xtCallbackProe callback, 
Mel GQINGeCleG Ieneadatd), 


K. MENU.C 


/* 
Peo LeeeMonieG le. 11 998/0l/2> 22-49709 greg Exp: > 
* 
* Menu.C -- Software Base Search Interface 
* 
* Source code for the creation of the menus used in the dialogs. These routine 
* create cascade style menus, add menu items, and implement the cascade style 
* help menu. 
* 
* Entry points: CreateMenu, CreateHelpMenu, AddMenulItem. 
* 
* Naval Postgraduate School 
* January 13721998 
* 
* Written by Gregory L. Meckstroth 
* 
an 


~ 


#include =<Stdlo. n> 
#inelude <stdlib.h> 


#include <Xm/Xm.h> 
#include <Xm/CascadeB.h> 
#include <Xm/RowColumn.h> 
#include <Xm/PushB.h> 
#include <Xm/Separator.h> 


#include “Gui.h" 

#include "Menu.h” 

#include "HelpMessages.h" 
#include “DisplayProgress.h" 


/* 
* Declarations for local functions. 
of 


Static void 
helpCB(Widget widget, XtPointer client data, XtPointer call data); 


/* 
* Create a cascade style menu with a widget name, label and nemonic. 
ay 


Widget 

CreateMenu (Widget parent, // Parent for the menu. 
char *name, // Widget name. 
char *label, // Menu label. 
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char mnemonic) 7/ SNOLteur. key. 


Widget menu; 
Widget cascade; 
XmString xmstring,; 
Arg args[20]; 
Cardinal n; 


/* 
* Create pull down menu. Engage tear-off menu. 


a, 
xmstring = XmStringCreateSimple (label); 


n = QO; 
SETARG(args{n], XmNtearOffModel, XmTEAR_OFF_ENABLED, n); 


menu = XmCreatePulldownMenu(parent, name, args, n); 


j* 
* Create cascade button and connect to menu. 


7 


cascade = XtVaCreateWidget (name, 
xmCascadeButtonWidgetClass, parent, 
XmNlabelString, xmstring, 
XmNsubMenuld, menu, 
XmNmnemonic, mnemonic, 
NULL); 


XtManageChild(cascade) ; 


return menu; 


} 


es 
* Create the help menu to the far right with items maintenance, search and 
* version. The menu will have a keyboard shortcut 


ay 
Widget 
CreateHelpMenu (Widget parent, // Parent for the menu. 
char *name, // Widget name. 
char *label, // Menu label. 
char mnemonic) // Shortcut key. 


Widget menu; 
Widget cascade; 
XmString xmstring; 
Arg args[20]; 
Cardinal n; 


/* 
* Create the pull down menu. 
ay 


xmstring = XmStringCreateSimple (label); 


n =.0; 
SETARG(args(n], XmNtearOffModel, XmTEAR_OFF_ENABLED, n); 


menu = XmCreatePulldownMenu(parent, name, args, n); 


jf * 
* Create cascade button and connect to menu. 


a 


cascade = XtVaCreateWidget (name, 
xmCascadeButtonWidgetClass, parent, 
XmNlabelString, xmstring, 
xmNsubMenuld, menu, 
XmNmnemonic, mnemonic, 
NULL) ; 
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} 


/* 


* Add a menu item to the parent, which is assumed to be a menu widget. 


/* 
" Make this the help menu which will place iteat the far crane. 
as 


XtvaSetValues (parent, XmNmenuHelpWidget, cascade, NULL); 


/* 
* Set up menu choices for the Help menu. 


Te 


(void) AddMenuItem(menu, "“maintenancehelp", 
"Maintenance", 
NULL NULL Ls 
(XtCallbackProc) helpCB, 
(XtPointer) & maintenance help message); 


(void) AddMenulItem(menu, "Searchhelp", 
"Search | 
NULL, NULL S*, 
(XtCallbackProc) helpcCB, 
(ACPOInter; search help message); 


(void) XtVaCreateManagedWidget ("sep", xmSeparatorWidgetClass, menu, NULL); 
(void)AddMenulItem(menu, "version", 

"Version", 

NULL, NULL, = vi, 

(XtCallbackeroc)), helpceB, 

(XtPointer) version_message); 


XtManageChild(cascade); 


return menu; 


Widget 
AddMenultem(Widget parent, // Parent for item. 
char *name, // Widget name. 
Ghar “label, // Item label. 
eiar, “ace text, // Accelorator text. 
char *acec key, // Accelorator key. 
char mnemonic, // Shortcut key. 
xtCallbackProc callback, j// Callback for item 
MePormeer cliente data) // Givent data for callback: 


Widget button; 
XmString stl XmStringCreateSimple (label); 
XmString st2 = XmStringCreateSimple(acc text); 


/* 
* Create the push button. the label and accelerator text are strings not 
P1cha res 
A 
button = XtVaCreateManagedWidget (name, xmPushButtonWidgetClass, parent, 
XmNlabelString, stl, 
XxmNacceleratorText, st2, 
AmNacceleratonr, acc key, 
XmNmnemonic, mnemonic, 
NULL) ; 
XtAddCallback(button, XmNactivateCallback, callback, client_data); 


XmStringFree(stl); 
XmStringFree(st2); 


XtManageChild(button); 


reeven Dutton; 
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7 


Callback for the help menu items opens the progress display and add the help 
message. The data for this callback is passed through the client data as a 
PCTnEGCES tO dil adrrayecle Chdracter strings. The first string 1s used as the 
dialog title. The last string is NULL. 


Static void 
NelpCre(Widget widget, ~erointer client data, XtPointer call data) 


{ 


i. 


™~ 
* 


yh EE Lk Ee gh pe rR 


Chate *Messege,— s(chars*)eclient data; 
/* 

* Make sure that we have a message if not we are done. 
i: 
if (message != NULL) 

{ 
/* 

* Clear the display and set the dialog title. 

as 


elear dusplay< message). 
on 
* Loop through the message array adding the strings to the display 
hs 
tOr (enar ~"e- = message + 1; *ec != (char *)NULL; crt) 
{ 
display message(*c); 
} 
/* 
* Make sure that the we are at the top of the messages 
*) 


home_display(); 
} 


PROMPTDIALOG.H 


Sida Prompepialeg.ti,v i.).1.1 1998/01/14 03:240:05 greg Exp $ 
PromptDialog.h -- Software Base Search Interface 
Header file for the GUI prompt dialogs. 


Naval Postgraduate School 
January 13, 1998 


Written by Gregory L. Meckstroth 


int ModalPromptDialog(Widget parent, char *title, char *message); 


void ModalWarningDialog(Widget parent, char *title, char *message); 


M. PROMPTDIALOG.C 


+ + + F OF 


SId: PromptDialog.C,v 1.2 1998/01/18 16:35:45 greg Exp §$ 


PromptDialog.C -- Software Base Search Interface 
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* Source code for the modal prompt dialogs. 
* Entry points: ModalWarningDialog and ModalPromptDialog. 


* Naval Postgraduate School 
' wanuary 13, “1999 


* Written by Gregory L. Meckstroth 


#include <Xm/Xm.h> 
#include <Xm/MessageB.h> 
#include <Xm/Text.h> 


#include <stdio.h> 
#include <stdlib.h> 
#include <iostream.h> 


#include "Gui.h" 
#include “Utrlssn” 


/* 

* The PROMPT DATA structure is used to pass data to the callback routines. 

* “done withmetalog: While true the event loop will continue running. Setting 
* this stem@eatse allows the event loop to exit. return value: )Seu by the 

* Callback routine to the modal dialog return value. 

* 

i, 


StLUCC, PROMPT DATA 

{ 
int done with dialog; 
IVER re eine 16 ; 


ba 
/* 


* Declarations for local functions. 


es 


static void 
Oke Wrdgetawadge:, XtPolncter clientudata, AeEPointer call data); 


static void 
cancelCB (Widget widget, XtPointer client data, XtPointer call data); 


/* 
* Display a modal dialog with a message for the user then wait for the user to 
* respond before allowing further program execution. Returns false if the ok 
* button is pressed and false for the cancel button. 
es 


ars 

ModalPromptDialog(Widget parent, 
char *title, 
char *message) 


Widget dialog; 
Widget button; 
Arg args[20); 
Cardinal argcount; 
PROMPT DATA cdata; 


cdata.done with dialog = False; 


/* 
* Create a question dialog box to display the message’ to the user. 
* Customize the title, ok and cancel buttons, remove the help button, and 
*~add callbacks for the ok and cancel burctons. 
a7 
argcount = 0; 


SETARG(args[argcount], XmNdialogStyle, XmDIALOG FULL APPLICATION MODAL, 
argcount); 
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dialog = XmCreateQuestionDialog(parent, "sbstext", args, argcount); 


Set Res String(dialog, XmNmessageString, message); 
set Res Stuing(dialog, xXmNdialogTitle, tatle); 

Set Res String(dialog, XmNokLabelString, "Yes"); 
Set_Res_String(dialog, XmNcancelLabelString, "No"); 


button = xXmMessageBoxGetChild(dialog, XmDIALOG HELP BUTTON) ; 
XtUnmanageChild (button) ; 


/* 
* Set the Callbacks icr the OK and cancel buttons so the we will get 
* control when the button is pressed. 


vs 


XtAddCallback(dialog, XmNokCallback, (XtCallbackProc) okCB, (XtPointer) & cdata); 
XtAddCallback (dialog, XmNcancelCallback, (XtCallbackProc) cancelCB, (XtPointer) & 


cdata); 


} 


/* 
* Display a modal warning or error dialog with a message for the user then wait 
* for the user to respond before allowing further program execution. 


XtManageChild(dialog); 


/* 

* Wait for a response to the dialog. When the OK or cancel button is 
pressed done_with dialog will be set true causing the loop to terminate. 
Return value is also set to the appropriate value in the callback. 

ey 


while (!cdata.done with_dialog) 
XtAppProcessEvent (XtWidgetToApplicationContext (dialog), XtIMA11); 


PeruUriecadta.-ceturh value; 


void 
ModalWarningDialog(Widget parent, 


chaz title, 
char *message) 


Widget dialog; 
Widget button; 
Arg args([20); 
Cardinal argcount; 
PROMPT DATA cdata; 


cdata.done with dialog = False; 


/* 
* Create a warning dialog box to display the message to the user. 


an 


argcount = 0; 
SETARG(args[argcount], XmNdialogStyle, XmDIALOG_ FULL_APPLICATION MODAL, argcount); 


dialog = XmCreateWarningDialog(parent, "", args, argcount); 
Set_Res String(dialog, XmNmessageString, message) ; 


y= 
* Customize the title, remove the ok and help buttons. Change the name of 
* the cancel button to dismiss. 


si 


Set Res String(dialog, XmNdialogTitle, title); 
Set_Res String(dialog, XmNcancelLabelString, “Dismiss"); 


button = XmMessageBoxGetChild(dialog, XmDIALOG_OK_ BUTTON); 
XtUnmanageChild(button) ; 


button = XmMessageBoxGetChild(dialog, XmDIALOG HELP BUTTON) ; 
XtUnmanageChild(button) ; 
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} 
/* 


* 


* 


* 


ey 


sta 


pe 
* Add a callback for the dismiss (cancel) button. 
ay 


XtAddCallback(dialog, XmNcancelCallback, (XtCallbackProc) cancelCB, 
(XtPointer) & cdata); 


XtManageChild(dialog) ; 


i= 
* Wait for a response to the dialog. When the dismiss button is pressed 
* done With dialog will be set true causing the 1o6epeec terminate. 


uy 


while (!cdata.done with dialog) 
XtAppProcessEvent (XtWidgetToApplicationContext (dialog), XtIMA11); 


Callback set the done _with_dialog variable to true so that the dialog will 
close. The data or this callback is passed through the client data as a 
pointer to a PROMPT DATA structure. Also set return value to ftalse. 


fic vord 


okCB(Widget widget, 


} 
/* 


my 


sta 


XUPounter client data, 
MEPCmiGenescal le data) 


PROMPT DATA *cptr = (PROMPT DATA *) client data; 


cptr->done_with_ dialog = True; 
Geen peturm Value = False; 


Save as okCB but returns true 


fc void 


cancelCB(Widget widget, 


Zs 


ae 
+ + + t+ t+ + Fe HH OF FH OF 


™ 


AtPointer client data, 
XtPointer call data) 


PROMPT DATA *cptr = (PROMPT DATA *) client_data; 


GptE=-done with dialog = True; 
Pes. -Feturn value = Frue, 


SDE.H 


Sid: SDE. hy weal 101998/01/14 03240305 greg Exp 3 
SDE.h -- Software Base Search Interface 


Header file for the temporary syntax directed editor. This will be replaced 
by the syntax directed editor in CAPS. 


Naval Postgraduate School 
January 13, 1998 


Written by Gregory L. Meckstroth 


void SDE(Widget parent, char **filename, char **string); 


2 


O. SDE.C 


7 

he ldewolk.c, Veale Jjelooe7 2 18 16-35:45 greg Exp $ 

* SDE.C >] Solttware Base Search Interface 

* 

Pe sCurce = =code for tic) temeorary “Syntax Directed Editor”. The functionality 
* that is supplied by SDE will be replaced by the Syntax directed Editor in 
* CAPS. SDE is a simple editor and not a real syntax directed editor. 

* Creating a functional Syntax Directed Editor is beyond the scope of this 
* Thesis. 

ne) 

= ENNELY peants- SDE. 

* Naval Postgraduate School 

* January 11, 19938 

* 

’ Wrietcn by Gregory L. Meckstroth 

* 

z/ 


#include <Xm/xXm.h> 
#include <Xm/Text.h> 
#include <Xm/Label.h> 
#include <Xm/Form.h> 
#include <Xm/PushB.h> 
#include <Xm/RowColumn.h> 
#include <Xm/Separator.h> 


#include "Gui.h" 

#include "“SearchDialog.h" 
#include "Menu.h" 
#include "Callbacks.h" 
#include "Utils.h" 
#include "“PromptDialog.h" 
finclude “SDE.h" 


#aefine EDITOR_RUNNING ‘r’ 
#define EDITOR_DONE ‘d' 
#aefine EDITOR CANCELED ‘c' 


/* 
* Declarations for local functions. 
Cy 


SctatLe vod 
CutCB (Widget widget, XtPointer client data, XtPointer call data); 


Static vo1d 
copyCB (Widget widget, XtPointer client data, XtPointer call data); 


Statie void 
pasteCB(Widget widget, XtPointer client data, XtPointer call data); 


Static void 
okCB (Widget widget, XtPointer client data, XtPointer call data); 


static void 
cancelCB(Widget widget, XtPointer client data, XtPointer call data); 


Static vold 
ecloseCB (Widget widget, XtPointer client data, XtPointer call data); 


static void 
GxXlECB (Widget widget, AtTPointer client data, XtPointer call data); 


i 

* A simple text editor for making changes to the PSDL query/spec. The 

* functionality that is supplied by this editor will be replaced by the CAPS 
* Syntax Directed Editor. The interface to the CAPS SDE was unknown at the 

* 


time that this editor was written so some modifications to other routines 


iS 


‘Sindy De Necessary. 


a7 


void 

SDE(Widget parent, 
char **filename, 
Char 7 *String) 


Widget dialog; 

Widget ok_btn; 

Widget cancel btn; 
Widget query text; 
Widget menubar; 
Widget filemenu; 
Widget editmenu; 
Widget filename text; 
Widget label; 


Arg args[20]; 
Caraina len; 
XmString xmstring; 
char *title; 


/* 
* The variable editor state is used to determine when to exit the event 
* loop. It has three states running, done, and canceled. The initial state 
Useriigangeewien the user presses the CKuor cancel Dutton Che stacewrc 
changed and the event loop will exit. 
oo 


static char editor_state; 
f& 
* The variable callback data is used to pass data to the file callbacks. 


a 


static FILEDLG DATA callback_data; 


/* 
* Create the editors dialog box 
a7 

titles =— "Sp Editor”; 

n = 0; 


SETARG(args[n], XmNautoUnmanage, False, n); 
SETARG(args[n], XmNwidth, DIALOG WIDTH, n); 
SETARG(args[n], XmNheight, DIALOG HEIGHT / 2, n); 
SETARG(args[n], XmNtitle, title, n); 
SETARG(args[{n], XmNiconName, title, n); 


dialog = XmCreateFormDialog(parent, "sbsdialog", args, n); 
/* 

* save the dialog widget for the file callback. 

ef 


callback _data.parent = dialog; 


yf x 
* Create menubar with file and edit menus. 
7 

n = 0; 


SETARG(args{n), XmNtopAttachment, XmATTACH_ FORM, n); 
SETARG(args[n], XmNleftAttachment, XmATTACH FORM, n); 
SETARG(args[n]), XmNrightAttachment, XmATTACH FORM, n); 
menubar = XmCreateMenuBar(dialog, "menubar", args, n); 


XtManageChild (menubar); 


filemenu = CreateMenu (menubar, “sbsmenu", “File”, ‘F'); 
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(void) AddMenulItem(filemenu, “open", 
"Open", 
BetriTrOr, s CLELaKey>o,.) 'O", 
(XtCallbackProc) opencsB, 
(XtPointer) & callback data); 


(void)AddMenultem(filemenu, “edit", 
eet 
MeeLlth a Cirle kKeyoe' 7 <-'E", 
(XtCallbackProc) editcCB, 
(AEPOIntCer) Me ea liback data), 


(void) XtVaCreateManagedWidget("sep", xmSeparatorWidgetClass, 


(void) AddMenulItem(filemenu, "save", 
TC ave et ; 
[etries 4 wctrieney=s, 'S", 
(XtCallbackProc) saveCB, 
(SEPointer) & callback data); 


(void) AddMenulItem(filemenu, “saveas", 
"Save As", 
eStrlrn | “Ctri<Keyra",- AY, 
(XtCallbackProc) saveasCB, 
PXePornter) & caliback data); 


(void) XtVaCreateManagedWidget ("sep", xmSeparatorWidgetClass, 


(void)AddMenultem(filemenu, "close", 
relese"; 
*Crerltwe, "CirmlekKevyow', °C", 
(XtCallbackProc) closeCB, 
(AtPointer) dialog) ; 


(void)AddMenulItem(filemenu, "exit", 
SE xiye | 
ScELitOu CerlcKey-O.,) (x, 
(XtCallbackProc) exitCB, 
(XtPointer) dialog); 


editmenu = CreateMenu(menubar, "edit", "Edit", 'E'); 


(void)AddMenulItem(editmenu, “cut", 
"Cut" : 
PGeriin 7s Ger <Keyox! 2 ert, 
(XtCal il backProc) -cutcB, 
(ACPOinter) & callback data); 


(void) AddMenulItem(editmenu, "copy", 
CODY 7 
Peerlte 7.  Cembakeyec", <C', 
(XtCallbackProc) copycCB, 
(XEPointer) & callback data); 


(void)AddMenultem(editmenu, "paste", 
"Paste", 
PCterltvy 47 ‘Crrl<Kevewwye Ee ', 
(XtCallbackProc) pasteCB, 
(XEPCinter i se callback data); 


/* 

* Create a text box for the file name so that the user will 
* file they are editing. 

ay, 


xmstring = XmStringCreateSimple("File name:"); 
label = XtVaCreateManagedWidget ("sbslabel", 
xmLabelWidgetClass, dialog, 
XmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, menubar, 
XmNtopOffset, 5, 
XmNleftAttachment, XmATTACH_ FORM, 
XmNleftOffset, 5, 


q) 


filemenu, NULL); 


filemenu, 


know which 


NULL) ; 


XmNrightAttachment, XmATTACH_ NONE, 
NULL) ; 


XtManageChild (label); 
KXmstringrree (xmstring); 


filename text = XtVaCreateManagedWidget("sbstext", 
xmTextWidgetClass, dialog, 
XmNeditMode, XmSINGLE_LINE EDIT, 
XmNeditable, True, a 
XmNshadowThickness, l, 
XmNmarginHeight, 2, 
XmNcursorPositionVisible, True, 
AMNtopAttachment, XMATTACH WIDGET, 
XmNtopWidget, menubar, 
xmNtopOffset, 5, 
XmNleftAttachment, XMATTACH WIDGET, 
XmNleftWidget, label, 
XmNleftOffset, 5, 
XmNrightAttachment, XmATTACH_FORM, 
XmNrightOffset, 5, 
NULL) ; 


/* 
* Save the filename text widget for use in the file callbacks. 
ay, 


callback data.fname text = filename_text; 


/* 
* Tf their 2s an initial file name display it for the usr to see. 


hid 


1£ (*filename != NULL) 
XmTextSetString(filename_text, *filename) ; 


XtManageChild(filename text); 


/* 

* Setup the ok button before the query text widget so that the bottom of 
* the query text widget can be attached to the ok button. 

ah 


ok btn = XtVaCreateManagedWidget ("OK", 
xmPushButtonWidgetClass, dialog, 
xmNwidth, BUTTON WIDTH, 
XmNheight, BUTTON HEIGHT, 
XmNleftAttachment, XmATTACH FORM, 
XmNleftoffset, 20, 
XmNrightAttachment, XmATTACH NONE, 
XmNtopAttachment, XmATTACH NONE, 
XmNbottomAttachment, XmATTACH FORM, 
XmNbottomoffset, 10, 
NULL); 


XtAddCallback(ok_btn, 
XmNactivateCallback, 
(XtCallbackProc) ckCB, 
(XtPointer) & editor state); 


XtManageChild(ok_btn); 


cancel _ btn = XtVaCreateManagedWidget ("Cancel”, 
xmPushButtonWidgetClass, dialog, 
XmNwidth, BUTTON WIDTH, 
XmNheight, BUTTON _HEIGHT, 
XmNleftAttachment, XmATTACH WIDGET, 
XmNleftWidget, ox_btn, 
XmNleftoOffset, 10, 
XmNrightAttachment, XmATTACH NONE, 
AmNtopAttachment, XmATTACH_NONE, 
xXmNbottomAttachment, XmATTACH FORM, 
XmNbottomoffset, 10, 
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NULL); 


XtAddCallback(cancel btn, 
XmNactivateCallback, 
(XtCallbackProc) cancelCB, 
(XEPOI Neer) 4 editor state); 


XtManageChild(cancel btn); 


oe 
* Create the text edit widget 
Ps 

n= 0? 


SETARG(args[n], XmNeditMode, XmMULTI_LINE EDIT, n); 
SETARG(args[(n], XmNtopAttachment, XmATTACH WIDGET, n); 
SETARG(args[n], XmNtopWidget, filename_text, n); 
SETARG(args[n], XmNtopOffset, 5, n); 

SETARG(args[n]), XmNleftAttachment, XmATTACH FORM, n); 
SETARG(args[n], XmNleftOffset, 5, n); 

SETARG(args[n]), XmNrightAttachment, XmATTACH_FORM, n); 
SETARG(args[n], XmNrightOffset, 5, n); 

SETARG(args[n], XmNbottomAttachment, XmATTACH WIDGET, n); 
SETARG(args[n], XmNbottomWidget, ok btn, n); 
SETARG(args[n]), XmNbottomOffset, 5, n); 


RUS Ey eeewe—exmeLeabeocrol lediext (dialog, “Sbhbstext Feards, fi): 


/* 
* Save the text widget for the file callbacks. 
ahr. 


Gallback cata. CExe = query text, 
XtManageChild(query text); 


/* 
* If we have an initial file name try to load the text from it. 


a 


if (*filename) 

{ 

enar, > fext. 

if (LoadFile(*filename, &text) != -1) 

{ 
XmTextSetString(query text, text); 
XxtFree (text); 

) 

} 


XtManageChild(dialog); 


/* 
* Wait for the editor to exit. 
ay 


editor state = EDITOR_RUNNING; 


Whlle@iiedi tor state == EDITOR RUNNING) 
XtAppProcessEvent (XtWidgetToApplicationContext (dialog), XtIMA11l); 


/* 
* If the user did not cancel the editor return the text and file name 


ae 


Uf (edvceorystate == EDITGR DGNE) 
{ 
*string = XmTextGetString(query_ text); 
ihe 2 eGring ==. '\0") 
{ 
XtFree (*string) ; 
*string = NULL; 
} 
*filename = XmTextGetString(filename_text); 


ui 


if (**filename == '\0') 

{ 
xtFree(*filename) ; 
*filename = NULL; 

) 

) 

else 

{ 

*string = NULL; 

} 


if (XtIsManaged (dialog) ) 
XtUnmanageChild(dialog); 
} 


7* 

* Cut callback that copies the primary selected text to the clipboard and then 
* deletes the primary selected text. 

a 


Sstatiervord 

cutCB(Widget widget, 
XtPointer client data, 
AtPointer ‘call odata) 


Widget text = ((FILEDLG_ DATA *) client_data)->text; 


if (text != NULL) 
{ 
XmTextCut (text, 
XtLastTimestampProcessed(xXtDisplay(text))); 
) 
) 


/* 
* Copy callback that copies the primary selected text to the clipboard 
By, 


Static void 

copyCB (Widget widget, 
REbOrnter client data, 
XtPointer call data) 


Widget text = ((FILEDLG DATA *) client _data)->text; 


1f (text != NULL) 
{ 


xmTextCopy (text, 
XtLastTimestampProcessed(xXtDisplay(text))); 
} 
} 


pe 
* Paste callback that inserts the clipboard selection at the insertion cursor. 
anh 


Staticevold 

pasteCB (Widget widget, 
XtPointer client_data, 
XtPointer call data) 


Widget Cext me (PILEPLG DATA S )eelient data) =>text; 


if (text != NULL) 


{ 
xmTextPaste (text); 


} 
) 


p= 
* Ok callback closes the editor and returns the text to the calling program. 
oy, 
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static void 
OokCB(Widget widget, 


} 
ve 


* 


a 


AEPOinter Cli1ent data, 
AEPGINCEr “Call ddta) 


Ehdhe Einiiig s= wvehar ey elient data; 
*running = EDITOR_DONE; 


Cancel callback closes the editor, the text is lost. 


static void 
cancelCB(Widget widget, 


} 
/* 


* 


ae 


ReeGincer  elacueedaca, 
AEPOInNter cal ledara) 


char *running = (char *)client data; 
“running = SPITCR CANCELED; 


Close the editor but give the user a chance to go back to the editor 


Static void 
closeCB(Widget widget, 


} 
j/* 


XtPointer client data, 
XtPointer call data) 


Widget parent = (Widget) client data; 
if (ModalPromptDialog(parent, "Warning", "Close editor?") ) 
ECCUrH, 


if (XtIsManaged (parent) ) 
XtUnmanageChild(parent) ; 


* Exit the program but give the user a chance to go back to the editor 


ea 


Statbie veid 
exitCB(Widget widget, 


re: 


™~ 


t+ oF F F F FF F F F + HF F 


MeEPoinber cliente data, 
At Pounter call data) 


Widget parent = (Widget) client_data; 


if (ModalPromptDialog(parent, "Warning", "Exit program?") ) 
return; 


exit(0); 


SEARCHDIALOG.H 


Sids SearchDialog.h,v 1.2 1998701718 18:50:03 greg Exp 9 
SearchDialog.h -- Software Base Search Interface 
Header file for the search dialog. 


Naval Postgraduate School 
January 13, 1998 


Written by Gregory L. Meckstroth 


ie 


void 
SearchDialog(Widget parent, XtCallbackProc callback); 


elar a 
ModalSearchDialog(Widget parent); 


Q. SEARCHDIALOG.C 


/* 

* Sid: SearchDialog.¢,v 1.6 1998701718 18:50:09 greg Exp -s5 

* SearchDialog.C -- Software Base Search Interface 

* 

* Source code for the CAPS software base search dialog. This dialog is the 

* interface to the ADA software base search that uses profile filtering and 

* signature matching. The dialog facilities the input of a PSDL specification 
* that is used as a query in the search. The output is displayed and the user 
* can select the desired component. 

* 

* Entry points: SearchDialog, ModalSearchDialog. 

* 

* Naval Postgraduate School 

* Janvary 13, 92996 

* 

* Written by Gregory L. Meckstroth 

* 

rab 


#include <stdio.h> 
#include <stdlib.h> 
#include <iostream.h> 
#include <sys/types.h> 
#include <sys/stat.h> 


#include <Xm/Xm.h> 
#include <Xm/Text.h> 
#include <Xm/Label.h> 
#include <Xm/ScrolledW.h> 
#include <Xm/Form.h> 
#include <Xm/PushB.h> 
#include <Xm/ToggleB.h> 
#include <Xm/PanedW.h> 
#include <Xm/RowColumn.h> 
#include <Xm/Separator.h> 
#include <Xm/FileSB.h> 


#include "Gui.h" 

#include "SearchDialog.h" 
#include “PromptDialog.h" 
#include "Menu.h" 

#include "SDE-h” 

#include "DisplayProgress.h” 
#include "“Callbacks.h" 
#include "“Utils.h" 


7 
* Names for files used as buffers to pass the search output to the interface. 
a 


#define PF FILE BUFFER ”../10 Protile Filtering but” 
#define SM FILE BUFFER "../IO Signature Matching.buf" 


Le 
* A simple linked list to keep track of which file name is associated with 
* which toggle button. This makes it easier to free memory when it is no 
* longer needed. 
oe 


Struct MATCHSLIS. 
{ 
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char *filename; 
Widget tbutton; 
MATCH _ LIST *next; 


The SEARCH (DATA Structure is used to pass data to the callback routines. 

parent: widget to use as the parent for dialog construction. 

fname text: text widget for file name. display. 

Drank ext cexc widget Of the profile rank. 

frank_text: text widget of the signature rank. 

SW_parent: signature window parent. 

callback: Callback to pass the selected component name to. 

Matches: linked list of toggle buttons and file names that the user can 
choose from. 


* + + + + + + F F + OF 


/ 


struct SEARCH DATA 

{ 
Widget parent; 
Widget fname_text; 
Widget prank text; 
Widget srank_ text; 
Widget Sw_parent; 
XtCallbackProc callback; 
MATCH LIST *matches; 


The toggle button uses selected component as the currently selected button. 
* This is also the return value for the ok callback. So to make things less 
complicated just make it global. 
ae 


Static MATCH ILIsT *selected component = NULL; 


/* 
thie Able OC ei edie eOnMlce tt ECrIng GOneCe when the: prorile filtering 
is completed. Trying to pass profile text aS an argument complicated the ADA 
interface so make it global to the search dialog. 


a7 
Static Widget profile text; 


/* 
* Save these to keep the users changes for next time. 


a 


Static char *save_query filename = NULL; 
Sedclewr Oat MIN prortilesrank | 1.00; 
StdtitG@t Oat Min Signature rank = 1,00; 


/* 
Se Usecepyetniecemoual sscancnsdialog. done with dialog while Crue the event, loop 

will continue running. Setting this to false allows the event loop to exit. 
return value is set by the callback routine to the modal dialog return 

* value. 


ail, 


Static int done with dialog; 
Static char *return_value; 


i= 
* Declarations for local functions. 


4 


static Aant 
remove nl{char *cptr); 


static Widget 
fgetlabel (Widget parent, Widget previous, FILE * stream); 


Static void 
clear _search(SEARCH DATA * sdata); 
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Static vord 
closeCB(Widget widget, XtPointer client_data, XtPointer call data); 


static void 
exitCB(Widget widget, XtPointer client data, XtPointer Gall data); 


Static vold 
cancelCB(Widget widget, XtPointer client data, xtPointer calitdatal, 


static void 
OkCB(Widget widget, XtPointer client data, XCPoimeen call data) ; 


static void 
togglebuttonCB (Widget widget, XtPointer client data, XtPointer call data); 


void 
profile filtering doneCB(); 


Static vould 
do tsceanchiCh Widgetewrdget, XtPointer clvent data, XEPointer cal Madara, 


/* 
* Declaration for the "ADA export" search routine. 


eo 


exEerme = 650 Searen(char *Sbroot, 
char *qfname, 
float *mprank, 
float “msrank, 
char *pf name, 
char *sm_name) ; 


/* 
* Display the software base search modal dialog. Returns selected component 
* name. 


na 


ehar > 
ModalSearchDialog (Widget parent) 
{ 


done with dialog = False; 
SearchDialog(parent, NULL); 


/* 
* Wait for a response to the dialog. When the OK or cancel button is 
* pressed done_with dialog will be set true causing the loop to terminate. 
="Return value 15 also set to the appropriate value im Che callback. 
i 


done with dialog = False; 


while (!done_with_dialog) 
XtAppProcessEvent (XtWidgetToApplicationContext (parent), XtIMA11l); 


return return value; 


} 


/* 
* Display the software base search dialog. 
<f 


void 
SearchDialog(Widget parent, 
Mica tbackrProec callback) 
{ 
Widget dialog_window; 
Widget scrolled_query window; 
Widget query text; 
Widget query fname_text; 
Widget scrolled profile window; 
Widget profile rank _text; 
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Widget signature rank text; 
Widget scrolled signature window; 
Widget signature window; 


V bates 
* The following static variables are used by callbacks after SearchDialog 
returns. 
rey 
static FILEDLG DATA filedlg data; // file callbacks 
static SEARCH DATA search data; // Search results 


Widget caps_label; 
Widget profile label; 
Widget Signature label; 
Widget previous; 

Widget query label; 


Widget search btn; 
Widget ok_btn; 
Widget cancel_btn; 


Widget menubar; 
Widget querymenu; 
Widget searchmenu; 
Widget helpmenu; 


“=e 


char I0Buffer[256] 
charvatucle: 


Arg args[20]; 
Cardinal n; 


XmString xmstring; 
in 
Stare With no match 


a 


S€arch data.matcnes, — NULL, 
search data.callback = callback; 


/* 

* Create the dialog box. 

ok 

title = "Software Base Search"; 
n = 0; 


SETARG(args[n], XmNautoUnmanage, False, n); 
SETARG(args[(n], XmNwidth, DIALOG WIDTH, n); 
SETARG(args[n], XmNheight, DIALOG HEIGHT, n); 
SETARG(args[n]), XmNnoResize, True, n); 
SETARG(args{n], XmNtitle, title, n); 
SETARG(args[n]), XmNiconName, title, n); 


dialog window = XmCreateFormDialog(parent, "“sbsdialog”, args, n); 
er 
* Save the dialog widget for later use. 


ay 


search data.parent = dialog window; 
filedlg data.parent = dialog window; 


inverlizerdisplay (parent): 


/* 
* Create menubar 
Ay. 

nN = 70); 


SETARG(args{n], XmNtopAttachment, XmATTACH FORM, n); 
SETARG(args{n], XmNleftAttachment, XmATTACH_FORM, n); 
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SETARG(args[n], XmNrightAttachment, XmATTACH FORM, n); 
menubar = XmCreateMenuBar (dialog window, "sbsmenubar", args, 
previous = menubar; 


XtManageChild (menubar) ; 


MN); 


/* 
* Create query menu. Callbacks for this menu are in Callbacks.c. 
ay 

querymenu = CreateMenu(menubar, "“sbsmenu", "Query", 'Q'); 


(void) AddMenulItem(querymenu, "new", 
"New", 
PEELEIN jo) @erloneven jo N°; 
(XtCallbackProc) newCB, 
(SEPOInGer egw citediq data); 


(void) AddMenultem(querymenu, "open", 
"Open", 
“CEG. Combe Keyro"s ~O', 
(XtCallbackProc) opencCB, 
(KUPOtnhter meq er tedig data); 


(void) AddMenultem(querymenu, "edit", 
vedi te F 
NEtCrlL tee a eerlaney-e 2 OE, 
(XtCallbackProc) editCB, 
(XtPointer) & filedlg data); 


(void) XtVaCreateManagedWidget ("sep", xmSeparatorWidgetClass, 


(void)AddMenulItem(querymenu, "save", 
"Save a 
Conlon ee cer koheyos: 9S", 
(XtCallbackProc) saveCB, 
(XtPointer) & filedlg data); 


(void) AddMenultem(querymenu, "Saveas", 
"Save As", 
PCEr it ie me OEE lL< Keyra’ 40° A 4 
(XtCallbackProc) saveasCB, 
(XtPointer) & filedlg data); 


(void) XtVaCreateManagedWidget("Sep", xmSeparatorWidgetClass, 


(void) AddMenultem(querymenu, "close", 
"Close", 
"“CeELtw , Cerl<Key>w"; *C*, 
(XtCallbackProc) closeCB, 
(XAtPointer) & search data); 


(void)AddMenultem(querymenu, "exit", 
Ce Mart oe 
SCErit+OteeCELl<KeveO", "x", 
(XtCallbackbroc): (exit tcs, 
(XtPointer) NULL); 


/* 
* Create the search menu. Callbacks are implemented locally 


a 
searchmenu = CreateMenu(menubar, "sbsmenu", "Search", 'S'); 


(void)AddMenulItem(searchmenu, "Search", 
“Start. ; 
MeEtrleT’, “Ctri<Keyst",, ?t", 
(XtCallbackProc) do_searchcB, 
(XtPointer) & searcch_data); 


/* 


* Create Help menu. 


aa 
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querymenu, 


gquerymenu, 


NULL); 


NULL) ¢ 


helpmenu = CreateHelpMenu(menubar, “sbsmenu", "Help", 'H'); 


xmstring = XmStringCreateSimple("CAPS Software Base Search"); 
caps label = XtVaCreateManagedWidget ("sbslabel", 
xmLabelWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, previous, 
XmNtopOffset, 5, 
XmNbottomAttachment, XmATTACH NONE, 
XmNleftAttachment, XmATTACH_POSITION, 
XmNleftPosition, 35, 
xmNrightAttachment, XmATTACH_NONE, 
NULL) ; 
XmStringFree (xmstring) ; 


7 
* Query label and query fname text display the current query file name for 
* the user 


7 
previous = caps label; 


xmstring = XmStringCreateSimple("PSDL Query:"); 
query label = XtVaCreateManagedWidget ("sbslabel", 
xmLabelWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH_ WIDGET, 
XmNtopWidget, previous, 
XmNtopOffset, 5, 
XmNleftAttachment, XmATTACH_ POSITION, 
XmNleftPosition, 15, 
NULL) ; 
XmStringFree (xmstring); 


query fname text = XtVaCreateManagedWidget ("sbstext", 
xmTextWidgetClass, dialog window, 
XmNeditMode, XmSINGLE LINE EDIT, 
XmNeditable, True, 
XmNshadowThickness, l, 
XmNmarginHeight, 2, 
XmNcursorPositionVisible, True, 
XmNtopAttachment, XmATTACH_WIDGET, 
XmNtopWidget, previous, 
XmNtopOffset, 5, 
XmNleftAttachment, XmATTACH WIDGET, 
AMNTeTCWwVdget, query label, 
XmNleftOffset, 5, 
XmNrightAttachment, XmATTACH_FORM, 
XmNrightOffset, 10, 
NULL); 


/* 
* Save the widget so that the file and search callbacks can change the name 
* when the user enters a new one. 


4 


fitedijwodta, lame Cext — query fname text; 
search data.fname text = query fname text; 


/* 
* This callback will update the file name and query text if the user types 
* a return in the fname text box. 


a7 
XtAddCallback(query fname text, XmNactivateCallback, 
(XtCallbackProc) textchangedCB, 
(SEPointer) & ftiledlig data); 
previous = query label; 
hEvamagechild (query iname text)? 
/* 
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Setup scrolled window to display query text. 
ae 


scrolled query window = XtVaCreateManagedWidget ("sbswindow", 
xmScrolledWindowWidgetClass, dialog window, 
XmNwidth, INFO WINDOW WIDTH, 
XmNheight, INFO WINDOW HEIGHT, 
XmNleftAttachment, XmATTACH FORM, 
XmNrightAttachment, XMATTACH FORM, 
XmNtopAttachment, XmATTACH WIDGET, 
xmNtopWidget, query label, 
XmNtopOffset, 5, 
XmNbottomAttachment, XmATTACH NONE, 
XmNresizable, True, 
XmNleftoffset, 5, 
XmNrightOffset, 5, 
XmNbottomOffset, 5, 
XmNscrollingPolicy, XmAUTOMATIC, 
XmNscrollBarDisplayPolicy, XmSTATIC, 
XmNscrolledWindowMarginWidth, 5, 
XmNscrolledWindowMarginHeight, 5, 
XmNscrollVertical, False, 
XmNscrollHorizontal, True, 
NULL) ; 

previous = scrolled query window; 


query text = XtVaCreateManagedWidget (“sbstext", 
xmTextWidgetClass, scrolled_query window, 
XmNwidth, INFO _WINDOW_WIDTH, 
XmNheight, INFO WINDOW HEIGHT, 
XmNeditMode, XmMULTI_ LINE EDIT, 
XmNshadowThickness, 0O, 
XmNmarginHeight, OQ, 
XmNscrollHorizontal, False, 
XmNeditable, False, 
XmNtraversalOn, False, 
XmNcursorPositionVisible, False, 
NUL); 


/* 

* Save the widget so that the query text can be updated when the user 
* changes the file name or edits that text 

yy, 


Pibethouadta.,cext = query text; 


XmScrolledWindowSetAreas (scrolled query window, 
(Widget) NULL, 
(Widget) NULL, 
GQUery text): 


XtManageChild(query text); 


/* 
* If the user is restarting the dialog try to use the file name that was 


* entered 
7 


if (save_query filename != NULL) 


{ 


char *text; 
XmTextSetString(query fname text, Save query filename); 


LE Loadrile (Save query filename, text) = 9-1 46 texte !— NULL) 


{ 
MMPGCXUSCEStrIng (query Text, text), 
XtFree (text); 

} 


MiPree (Save query filename); 
} 


a 
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* Create a text box for the profile rank. This is where the rank is stored 
* so that the user can make changes before running the search. 


or 


xmstring = XmStringCreateSimple("Profile Filtering Minimum Rank:"); 
profile label = XtVaCreateManagedWidget ("sbslabel", 
xmLabelWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, previous, 
XmNtopOffset, 5, 
XmNleftAttachment, XmATTACH POSITION, 
XmNleftPosition, 15, 
NULL); 
XmStringFree (xmstring); 


Sprrmmer(lOBUEEer, “4.25, Mine prortile rank), 


profile rank text = XtVaCreateManagedWidget ("sbstext”, 
xmTextWidgetClass, dialog window, 
XmNeditMode, XmSINGLE_LINE EDIT, 
XmNeditable, True, 
XmNshadowThickness, l, 
XmNmarginHeight, 2, 
XmNcolumns, 5, 
XmNcursorPositionVisible, True, 
xmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, previous, 
XmNtopOffset, 5, 
XmNleftAttachment, XMATTACH WIDGET, 
XmNleftWidget, profile label, 
XmNleftOffset, 5, 
NULL) ;} 


/* 
* Save the widget so that the search callbacks can get the profile rank 
* when the user runs the search. 


a 
search data.prank text = profile rank text; 
previous = profile label; 


POLCXESCEGtc ig (prortlomrank Coxt,, IOBUETCr); 
XtManageChild(profile rank_text); 


7 
* Create a scrolled window for the profile filtering results. 


se 


scrolled profile window = XtVaCreateManagedWidget ("sbswindow", 
xmScrolledWindowWidgetClass, dialog_ window, 
XmNwidth, INFO WINDOW WIDTH, 
xmNheight, INFO WINDOW HEIGHT, 
xmNleftAttachment, XmATTACH FORM, 
XmNrightAttachment, XmATTACH_ FORM, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, profile label, 
XmNtopOffset, 5, 
XmNbottomAttachment, XmATTACH NONE, 
xmNresizable, True, 
XmNleftOffset, 5, 
XmNrightOffset, 5, 
XmNbottomOffset, 5, 
XmNscrollingPolicy, XmAUTOMATIC, 
XmNscrollBarDisplayPolicy, XmSTATIC, 
XmNscrolledWindowMarginWidth, 5, 
XmNscrolledWindowMarginHeight, 5, 
XmNscrollVertical, False, 
XmNscrollHorizontal, True, 
NULL) ; 

previous = scrolled profile window; 


profile text = XtVaCreateManagedWidget ("sbstext”, 
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xmTextWidgetClass, scrolled profile window, 
XmNwidth, INFO WINDOW WIDTH, - 
XmNheight, INFO WINDOW HEIGHT, 
XmNeditMode, XmMULTI LINE EDIT, 
XmNshadowThickness, 0, 
XmNmarginHeight, 0O, 
XmNscrollHorizontal, False, 
XmNeditable, False, 

XmNtraversalOn, False, 
XmNcursorPositionVisible, False, 
NULL) ; 


xmScrolledWindowSetAreas (scrolled profile window, 
(Widget) NULL, 
(Widget) NULL, 
PUCELIE TExXE), 


XtCManageChild(profile text); 


/* 
* Create a text box for the signature rank. This is where the rank is 
* stored so that the user can make changes before running the search. 
af 


xmstring = XmStringCreateSimple("Signature Matching Minimum Rank:"); 
Signature label = XtVaCreateManagedWidget ("sbslabel", 
xmLabelWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, previous, 
XMNEGDOELSEL, 5, 
XmNleftAttachment, XmATTACH_ POSITION, 
XmNleftPosition, 15, 
NULE) 
XmStringFree (xmstring) ; 


Sprimce(POburfrer,, "t.2£", min signature rank); 


signature rank text = XtVaCreateManagedWidget ("sbstext", 
xmTextWidgetClass, dialog window, 
XmNeditMode, XmSINGLE_LINE EDIT, 
XmNeditable, True, 
XmNshadowThickness, l, 
XmNmarginHeight, 2, 
XmNcolumns, 5, 
XmNcursorPositionVisible, True, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, previous, 
AMeGpOLisSet, 5, 
XmNleftAttachment, XmATTACH WIDGET, 
AmNIerewidget, signature label, 
XmNleftoOffset, 5, 
NULL) ; 


/* 
* Save the widget so that the search callbacks can get the signature rank 
* when the user runs the search. 


Te 


search data.srank_ text = signature _rank text; 
previous = signature label; 


xmTextSeeString(signature rank text, JOBurtfer):; 
XtManageChild(signature_ rank text); 


/* 
* Create a scrolled window for the profile filtering results. 


si 


scrolled signature window = XtVaCreateManagedWidget ("sbswindow", 
xmScrolledWindowWidgetClass, dialog_window, 
XmNwidth, INFO WINDOW WIDTH, 
XmNheight, INFO WINDOW_HEIGHT, 
XmNleftAttachment, XmATTACH_FORM, 
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XmNrightAttachment, XmATTACH_ FORM, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, signature label, 
XmNtopOffset, 5, 
XmNbottomAttachment, XmATTACH NONE, 
XmNresizable, True, 

XmNleftOffset, 5, 

XmNrightOffset, 5, 

XmNbottomOffset, 5, 
XmNscrollingPolicy, XmAUTOMATIC, 
XmNscrollBarDisplayPolicy, XmSTATIC, 
XmNscrolledWindowMarginWidth, 5, 
XmNscrolledWindowMarginHeight, 5, 
XmNscrollVertical, False, 
XmNscrollHorizontal, True, 

NULL); 


an 
* Save the widget so that the search callbacks can create signature match 
* results widgets in it. 


es, 
search _data.sw_parent = scrolled_signature_window; 
previous = scrolled _signature_window; 


signature window = XtVaCreateManagedWidget ("sbsform", 
xmFormWidgetClass, scrolled signature window, 
XmNwidth, INFO WINDOW WIDTH, 
XmNheight, INFO WINDOW_HEIGHT, 
NULL); 


XmScrolledWindowSetAreas (scrolled signature window, 
(Widget) NULL, 
(Widget) NULL, 
Signature window) ; 


j* 
* Create the push buttons at the bottom of the dialog box. 
/. 


xmstring = XmStringCreateSimple ("OK"); 
ok btn = XtVaCreateManagedWidget ("sbslabel", 
xmPushButtonWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNwidth, BUTTON _WIDTH, 
XmNheight, BUTTON HEIGHT, 
XmNleftAttachment, XmATTACH_FORM, 
XmNleftOffset, 20, 
XmNrightAttachment, XmATTACH_NONE, 
XmNtopAttachment, XmATTACH_NONE, 
XmNbottomAttachment, XmATTACH FORM, 
XmNbottomOffset, 10, 
NULL); 
XmStringFree(xmstring) ; 


XtAddCallback(ok_btn, 
XmNactivateCallback, 
(XtCallbackProc) okCB, 
(XtPointer) & search data); 


XtManageChild(ok_btn); 


xmstring = XmStringCreateSimple ("Search"); 
search btn = XtVaCreateManagedWidget ("Sbslabel”", 
xmPushButtonWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNwidth, BUTTON_WIDTH, 
XmNheight, BUTTON HEIGHT, 
XmNleftAttachment, XmATTACH WIDGET, 
XmNleftWidget, ok_btn, 
XmNleftOffset, 10, 
XmNrightAttachment, XmATTACH_NONE, 
XmNtopAttachment, XmATTACH_NONE, 
XmNbottomAttachment, XmATTACH_FORM, 
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XmNbottomOffset, 10, 
NULL); 
xmStringFree (xmstring) ; 


XxtAddCallback(search btn, 
xmNactivateCallback, 
(ReCal lhackP roc de searches, 
(AC POINGer ee search data) 7 


XtManageChild(search btn); 


xmstring = XmStringCreateSimple ("Cancel"); 

cancel btn = XtVaCreateManagedWidget ("Sbslabel", 
xmPushButtonWidgetClass, dialog window, 
XmNlabelString, xmstring, 
XmNwidth, BUTTON WIDTH, 
XmNheight, BUTTON HEIGHT, 
xXmNleftAttachment, XmATTACH WIDGET, 
XmNleftWidget, search btn, 
XmNleftOffset, 10, 
XxmNrightAttachment, XmATTACH_NONE, 
XmNtopAttachment, XmATTACH_NONE, 
xmNbottomAttachment, XmATTACH FORM, 
XmNbottomOffset, 10, 
NULL); 

XmStringFree(xmstring); 


XtAddCallback(cancel btn, 
xmNactivateCallback, 
(XtCallbackProc) cancelCB, 
(XtPointer) & search data); 


xXtManagechirid(ecancel btn); 


XtManageChild(dialog window); 
} 


/* 
* Find new line and null it out. Returns length of string. 


aay 


Statiouene 
remove nl(char *cptr) 


{ 


Chan f£irse = copter; 


Willem coer !=—*\n') 

{ 

if wiseptr == "\0") 
break; 

cCpirtt, 


} 

Cpre = 10s 

EeEUrn coer — first; 
) 


/* 
* Create a label from a line of text that is read from the input stream. The 
* label will be placed in the parent widget after the previous widget. Leading 
* spaces will be skipped. 
my 


static Widget 
fgetlabel (Widget parent, Widget previous, FILE * stream) 
{ 

Widget widget; 

XmString xmstring; 

char IObuf[(MAXBUFSIZE]); 

char *ptr = IObuf; 


fgets(IObuf, MAXBUFSIZE, stream); 
remove nl(IObuf); 


While (*ptr == "to ') 
DEE: 
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xmstring = XmStringCreateSimple(ptr); 

widget = XtVaCreateManagedWidget ("sbstext", 
xmLabelWidgetClass, parent, 
XmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, previous, 
XmNtopOffset, 5, 
xmNleftAttachment, XmATTACH FORM, 
XmNleftOffset, 25, 
NULL) ; 

XtManageChild(widget) ; 

XmStringFree(xmstring); 

return widget; 


} 


/* 
* Clear the search results displays and free memory used by data structures. 
es 


static void 
Clear _search(SEARCH_ DATA * sdata) 
{ 

MATCH LIST *match; 

MATCH LIST *next_match; 


if (sdata->matches == NULL) 
Beier a 


XmTextSetString(profile text, ""); 


EOr "(maeech” = Sdata=-Macecnes, March {= NULD, match = ext match) 
{ 
next match = match->next; 
XtFree (match->filename) ; 
merree ( (char ~) Match), 
} 
} 


/* 
* Callback quits program without returning a component selection. 
yf 


Static void 

closeCB(Widget widget, 
XtEePornter client sdata, 
XtPointer call data) 


SEARCH_DATA *data = (SEARCH_DATA *) client data; 

char *warning = "A component was selected\nexit without saving?"; 

if (selected component != NULL && ModalPromptDialog(data->parent, “Warning”, warning) ) 
return; 


cCancelCB (widget, client data, call data); 
} 


iil 
* Callback exits program. 
Boh 


static void 

exX1tCB(Widget widget, 
ACEOinter Client data, 
ACEOImCer Caliedata) 

{ 


exit (0) 7 
} 
/* 
* Cancel callback 
7 


Static void 


9] 


cancelCB(Widget widget, 


} 


j* 
* Ok callback passes the selected component to the applications callback then 
*exits the dialog. 


XtPointer client data, 
XtPointer call data) 


SEARCH DATA *data = (SEARCH DATA *) client data; 


Hee 
* Save the query filename in case the used restarts the search dialog. 
= 


save_query filename = gettext(data->fname_text); 


if (XtIisManaged(data->parent) } 
XtUnmanageChild(data->parent) ; 


/* 
* The modal search dialog set the call back to NULL. So set its return 
* value 
a7 

if (data->callback != NULL) 

(data->callback) (widget, (XtPointer) NULL, (XtPointer) NULL); 

else 

betCurieavalues= NULL, 


donemywith daaleg = True; 


clear search (data); 


static void 
okCB (Widget widget, 


XtPointer client_data, 
KtPointer “call data) 


char *warning = "No module selected\nexit anyway?"; 
SEARCH DATA “data = (SEARCH DATA *) elient data; 
/* 


* If the user did not select a component give them a chance to return to 
* the dialog before exiting. 
yp 


if {selected component == NULL) 


{ 


if (ModalPromptDialog(data->parent, "Warning", warning) ) 
{ 


return; 


) 
else 


{ 
cancelCB(widget, client data, call data); 
FetuErny 

} 

} 


f* 
* Save the query filename in case the used restarts the search dialog. 
ay 


Savemaueryerihename = gettext (data=>iname text), 


1f (XtIsManaged(data->parent) ) 
XtUnmanageChild(data->parent) ; 


j/* 
* Pass the component to the callback or if modal set the return value. 


a 


me 


if (data->callback != NULL) 

(data->callback) (widget, (XtPointer) selected component->filename, (XtPointer) 
else 

return value = selected _component->filename; 


done with dialog — True; 


clear search(data); 
) 


ee 
* Toggle button callback turns off previously selected button and saves new 
= COMpOnent. 
af 


static void 

togglebuttonCB(Widget widget, 
XtPointer client data, 
PEE OInter sca data) 


Pee selected component) 

{ 

XEVaser alues (selected component —-thutton, 
XmNset, XmUNSET, 
NULL); 

} 


selected component = (MATCH LIST *) client_data; 
} 


/* 
* Show the user the results of the profile filtering part of the search. This 
* callback is made from the ADA search routine. 


my 


void 
profile Ciltering doneCs() 
{ 


char *string: 


/* 
* PF FILE BUFFER is the temporary file used to pass the results from the 
* ADA search routines to the GUI interface. 


“f 


if (LoadFile(PF FILE BUFFER, &string) > 0) 

{ 

XmTextSetString(profile text, string); 

XtFree(string); 

remove (PF_FILE BUFFER) ; 

} 

else 

XmTextSetString(profile text, "Profile filtering ERROR!."); 


} 


/* 
* Callback searches the software base for matches to the user specified query. 
ae 


Static void 

do_searchCB(Widget widget, 
XEPOimter client data, 
XtPointer call data) 


SEARCH_DATA *data = (SEARCH_DATA *) client_data; 


Widget signature text; 
Widget candidates; 
WLAOGEE previous widget, 
Widget component_id; 
Widget profile rank; 
Widget solution; 
XmString xmstring; 
Cardinal n; 
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NULL); 


Arg args(20j; 

PPLE, “Ep; 

char *soltext; 

enar 8eper; 

char PTbuffer [(MAXBUFSIZE}; 
char IObuffer(MAXBUFSIZE]; 
char. “scering: 

char *filename; 

int length; 

int candidates offset = 5; 
int nmatchs; 

int position; 

MATCH LIST *match; 


static Widget signature window = NULL; 


if (client_data == NULL) 

{ 

Gout << “Error no data\n"; 
recur, 


} 
j= 

* We have to pass a query file to the ADA search routines. 
We 


filename ="Geelext (data->finame text), 


1f (filename == NULL) 
{ 
ModalWarningDialog(data->parent, “Error", “Query not specified"); 
FeLunn, 
} 
/* 
* Clear any old search results. 
ay 


clear search(data); 


/* 
* If the signature window exists destroy it to clear out the old search 
* results. 


oe 


if (signature window != NULL && XtIsManaged(signature window) ) 
{ 

XtUnmanageChild(signature window) ; 

XtDestroyWidget (signature window) ; 

} 


signature window = XtVaCreateManagedWidget ("sbsform", 
xmFormWidgetClass, data->sw_ parent, 
NULL) ; 


XmScrolledWindowSetAreas (data->sw_parent, 
(Widget) NULL, 
(Widget) NULL, 
signature window) ; 


/* 
* Get the current minimum rank from their text widgets. 


af 


String — AMlextGetstring(data--prank cent), 
min_profile rank = atof(string); 
XtFree(string) ; 


string = XmTextGetString(data->srank_ text); 
Manesvgnature rank ="ator(stering); 
XtFree(string); 


p> 
* Clear the progress display and set the title. The display will be 
* updated by the ADA search routines as the search progresses. 
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* PF_FILE BUFFER and SM_FILE BUFFER are the file names for the search 
results. Ihe profile filtering results will be display by a callback 

* from the ADS routines. 

oy 


clear display("Search Progress"); 


sb _search(SBROOT, 
filename, 
émin profile rank, 
&émin signature rank, 
PF _ FILE BUFFER, 
SM_FILE BUFFER) ; 


ACFree(tivename) 7 
selected ‘component, = NULL; 


data->matches = NULL; 
Match = NULL; 


/* 
* Assume that an error occurred if we can't open the results buffer. 


oi 


[pe = ropen (ol sel LE BUPESR = tere 

Ph (foe =— aN) 

{ 

xmstring = XmStringCreateSimple("Signature matching ERROR!."); 

(void) XtVaCreateManagedWidget ("Sbstext"”, 
xmLabelWidgetClass, signature window, 
XmNlabelString, xmstring, 
xmNtopAttachment, XmATTACH_ FORM, 
xmNleftAttachment, XmATTACH_FORM, 
xmNleftoOffset, 5, 
NULL) ; 

XmStringFree (xmstring) ; 

XtManageChild(signature_ window); 


} 
/* 


* We remove the new lines from labels so that they will not cause problems. 
* The first line has information about the candidates found. 


x 


fgets (IObuffer, MAXBUFSIZE, fp); 
remove ni (1Oburter); 


xmstring = XmStringCreateSimple (IObuffer) ; 

candidates = XtVaCreateManagedWidget ("Sbstext", 
xmLabelWidgetClass, signature window, 
XmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH_FORM, 
XmNleftAttachment, XmATTACH_FORM, 
XmNleftoOffset, 5, 
NULL) ; 

XmStringFree(xmstring) ; 

previous widget = candidates; 


XtManageChild (candidates); 


Vis 
* Loop through the components that were found display informaiton about 
each one and set up a toggle button for the use to select one. 


a 


while (fgets (IObuffer, MAXBUFSIZE, fp) ) 

{ 

i> 

* Build the data structure that will have the toggle buttons and file 
* names. 


7 
if (data->matches == NULL) 
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data->matches = (MATCH_LIST *) XtMalloc( (Cardinal) sizeof(MATCH LIST)); 
match = data->matches; — 

) 

else 

{ 
match=>next = (MATCH LIST *) XtMalloc( (Cardinal) siazeor (MATCH Ulsr)); 
match = match->next; = 

} 

match->next = NULL; 


fe 
* Add the file name of the component 
sy / 


length — semeveumi TOnurtrer) ; 
match->filename = (char *)XtMalloc((Cardinal) (length + 1)); 
strcepy(match->filename, IObuffer); 


/* 
* Add the toggle button 
ay. 


xmstring = XmStringCreateSimple (IObuffer); 
match->tbutton = XtVaCreateManagedWidget ("Sbslabel", 
xmToggleButtonWidgetClass, signature window, 
XmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, previous widget, 
XmNtopOffset, candidates_offset, 
XmNleftAttachment, XmATTACH_FORM, 
XmNleftOffset, 5, 
NULL); 
previous widget = match->tbutton; 
XmStringFree(xmstring); 
Gandidates offset = 20; 


XtAddCallback (match->tbutton, 
XmNarmCallback, 
(XtCallbackProc) togglebuttoncegs, 
(XtPointer) match); 


XtManageChild(match->tbutton) ; 


/* 
* Show the user the component information 
ay) 
component _ id = fgetlabel(signature window, previous_widget, fp); 


previous_widget = component_id; 


profile rank = fgetlabel (signature_window, previous widget, fp); 
previous _widget = profile rank; 


nmatchs = 1; 


The ADA routines put in end of sections, %%End_Signature%% and 

* %%End Component%%, that are used to control the parsing of the 

* results. If we find an end of component then their are not signature 
* matches for this candidate. 


oer 
fgets (IObuffer, MAXBUFSIZE, fp); 
if 1 lObutter(O])—— —s) 66 1Os0tfer(2)e—=——8 bees FObutter (G]e== 9C*) 
continue; 
/* 
* Loop through the solutions for this component. 
af 
do 
{ 
/* 
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* Create a lable for this solution 


ey 


SPrIintr(eibucrter, “Sclution td”, nmatehs++)-> 
xmstring = XmStringCreateSimple(PTbuffer) ; 
solution = XtVaCreateManagedWidget ("sbstext", 
xmLabelWidgetClass, signature window, 
xmNlabelString, xmstring, 
XmNtopAttachment, XmATTACH WIDGET, 
XmNtopWidget, previous widget, 
XmNtopOffset, 5, 
xmNleftAttachment, XmATTACH_FORM, 
XmNleftOffset, 45, 
NULL) ; 
XtManageChild(solution); 
XmStringFree(xmstring); 
previous widget = solution; 


/* 
* Save the text of the solutions. 
a, 
position = strlen(IObuffer); 
length = 1; 
Seltext = (char *)XtMalloc( (Cardinal) (position + 1)); 


SUrGpY (solLext,.1Oburter) ; 
while (fgets (IObuffer, MAXBUFSIZE, fp)) 
{ 
fe 
* Stop when we find the end of this sections %End_ Signature%% 
oe 
if (IObuffer(0] == '%' && IObuffer[2}] == 'E' && I0buffer[6] == 'S') 
break; 


cptr = soltext; 

position += strlen(IObuffer); 

soltext = (char *)XtMalloc( (Cardinal) (position + 1)); 
Strepy (soltext, cptr); 

strcat(soltext, IObuffer); 


REPEC (eur): 


length++; 
} 


/* 
* Create a scrolled text widget for the solution it may be quit 
= long. 


4 


m= 10; 

SETARG(args[n], XmNeditMode, XmMULTI_LINE EDIT, n); 
SETARG(args[n], XmNeditable, False, n); 
SETARG(args[n], XmNwidth, INFO_WINDOW_WIDTH - 25, n); 
SETARG(args[(n], XmNheight, INFO WINDOW HEIGHT / 2, n); 
SETARG(args(n], XmNtraversalOn, False, n); 
SETARG(args[(n], XmNcursorPositionVisible, False, n); 
SETARG(args[(n], XmNscrollingPolicy, XmAUTOMATIC, n); 
SETARG(args[n], XmNscrollBarDisplayPolicy, XmSTATIC, n); 
SETARG(args(n], XmNscrolledWindowMarginWidth, 5, n); 
SETARG(args[n], XmNscrolledWindowMarginHeight, 5, n); 
SETARG(args[(n], XmNtopAttachment, XmATTACH WIDGET, n); 
SETARG(args{n], XmNtopWidget, previous_widget, n); 
SETARG(args[(n], XmNtopOffset, 5, n); 

SETARG(args(n]), XmNleftAttachment, XmATTACH_FORM, n); 
SETARG(args[n], XmNleftOffset, 45, n); 


Signature text = XmCreateScrolledText (signature window, "sbstext", 
args, n); 


previous widget = signature text; 


Atextoectoeuring (signature text, soltext), 
XtFree(soltext) ; 
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XtManageChild(signature text); 
fgets (TObuffer, MAXBUFSIZE, fp); 
} 
while (IObuffer[6] == 'S'); 
} 


fclose(fp); 
remove (SM_FILE BUFFER) ; 


XtManageChild(signature window); 


R. UTILS.H 


* 
“ Std: Utilsahyyote os bo98/01/18 16:35:46 greg Exp S$ 
* 
* Utils.h -- Software Base Search Interface 
* 
* Header file for the interface utilities. 
* 
* Naval Postgraduate School 
* January 13,2979 
. 
* Written by Gregory L. Meckstroth 
+/ 
Ghar = 


getdirname(char *path); 


clic Gare 
getfilename(char *path); 


char. * 
GaAESELINGs (chore sel char *st2); 


void 
Set Res String(Widget widget, String name, char *text); 


enate. 
gettext (Widget string); 


void 
savetext (Widget parent, char *filename, char *text); 


long 
LoadFile(char *filename, char **ptraddr); 


Boolean 
CopyFile(char *filein, char *fileout); 


void 
Reformat (const char *fname, const int nskipcommas) ; 


S. UTILS.C 


y= 
‘Slade Utils.C,v 1l.So 19987 Ol 25022 AS Oo sgregs exp 
* 
* Utils.C -- Software Base Search Interface 
* Source code for the common utilities used in the software base search 
* interface. 
* 
* Entry points: getdirname, getfilename, catstrings, Set_Res_ String, gettext, 
* savetext, LoadFile, CopyFile, Reformat, 
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* Naval Postgraduate School 
VanValyel3, 1295 


ac 
* 
* Written by Gregory L. Meckstroth 
ao) 


#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
#include <iostream.h> 
#include <sys/stat.h> 
#include <Xm/Xm.h> 
#include <Xm/Text.h> 


#include "PromptDialog.h" 


* Returns a character pointer to a copy of the directory part of the path to a 
* file. The application is responsible for freeing the storage associated with 
*“Sthe string by calling xXtFree. 

Pf, 


char? 

getdirname (char *path) 

( 
ehar feptr = strrchr (path, 7"): 
ena “iV; 
Cardinal length; 


/* 
* If the path did not have a separator its local so return a pointer to 
* the local directory. Other wise make a copy of the path up to and 
* including the separator. 


es 


if (cptr == NULL) 

{ 

rv = XtMalloc((Cardinal) 3); 
SErPCOYy UEVane «aye 

} 

else 

{ 

length = ecptr = path + 1; 
rv = XtMalloc(length + 1); 
strncpy(rv, path, length); 
Fry + length) =" "\0%; 

} 


return frv; 


* Returns a character pointer to a copy of the file name part of the path toa 
* file. The application is responsible for freeing the storage associated with 
* the string by calling XtFree. 

aL 


char * 

getfilename(char *path) 

{ 
Chat “Chote = “Strichr(pathyog <4: 
char 4° rv; 
int length; 


/* 

* If the path did not have a separator then its the file name. Other wise 
* step past it. 

*/ 


if (cptr == NULL) 
{ 

cptr = path; 

) 


oD 


else 


{ 
cptr+t; 
} 


7 
* Make a COpy Of Che file name and return ie pointer, 
<i 


length = strlen(cptr); 

rv = AtMalloc( length + 1); 
StErcoy Cry, Coir); 

return rv; 


yer 
* Returns a character pointer to a copy of the concatenation of the stil and 
* st2. The application is responsible for freeing the storage associated with 
* the string by calling XtFree. 
7 


char a 
catstrings(char!- st. char =“st2) 


{ 
UnSsagned Ineevength — strlen(stl) + strlen(st2); 


char ~rv = XtMalloc(length + 1); 
ehar *cpotry— sr, 


whales (= St lo. \0') 
POPE = Slt, 


while (*st2 != '\O') 
*eptrtt — | Sez7.. 


Teptre=s  ¥O77 


return rv; 


} 


Jf * 
* Set a resource string of a widget 
7 
void 
Set Res String(Widget widget, // Widget containing resource. 
String name, // Motif name of widget. 
char *text) // Text to set resource to. 
{ 
xXmString tmp = XmStringCreateLtoR(text, XmSTRING DEFAULT CHARSET) ; 
Arg args[1l] = 
{ 
{mame, (XtArgVal) 0} 
he 
args[0].value = (XtArgVal) tmp; 
XtSetValues (widget, args, 1); 
XmStringFree (tmp) ; 
} 
/* 


* Returns a character pointer to the string value of the text widget or NULL 
if its empty. The application is responsible for freeing the storage 

* associated with the string by calling XtFree. 

a 


cham 
gettext (Widget text) 


{ 
if (text == NULL) 
return NULL; 


char *string = XmTextGetString(text); 
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} 


ye 
* Save the text file to a file. 


Pi 


j* 
* If the string 1s “empty” then set the string pointer to NULL 
Fey: 


Te (4SeEring. == 60) 
{ 

XtFree(string); 
String = NULL; 

} 


return Stering, 


void 
Savetext (Widget parent, char *filename, char *text) 


{ 


a, 


FILE *fp; 


size_t length, 
Size t written; 


fp = fopen(filename, "w"); 


/* 
* If the open failed prompt the user so they will know 
my 


Teo ape — ULL) 

{ 

char IObuffer[256]; 

sprintf(IObuffer, "Error opening file %s", filename) ; 
ModalWarningDialog(parent, “Error", IObuffer); 
return; 


) 


/* 
* Write the text to the file 
ae 


length = strlen(text); 
written = fwrite(text, 1, length, fp); 
fclose(fp); 


/* 
* If their was an error writing the file prompt the user so they will know 
os 


if (written != length) 

{ 

char TObuEfer [256] ; 

Sprintf(IObuffer, “Error writing file %s", filename) ; 
ModalWarningDialog(parent, “Error", IObuffer); 

} 


Function to load a text file into memory. Returns the number of bytes 
written. The application is responsible for freeing the storage associated 
with the string by calling XtFree. 


long 
LoadFile(char *filename, char **string) 


{ 


FILE *fip-; 

SErucE Stat file info; 
char *buffer; 

long bytes read; 
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y= 
* Open the file and return if their is an error. 


eof 
fp = fopen(filename, "r"); 
if otto == ULE) 
{ 
*string = NULL; 
return =i; 
} 
/* 
* Get, file size. Return. 1f their is an error. 
a), 
if (stat(filename, &file info) != 0) 
{ 
*string = NULL; 
fclose (fp); 
Securns— Ly 
} 
J 
* Get memory to hold the files text String. Return if their is an error 
a7 
PouLing = tenar “)AtMalloc(file ianfo.st size + 1); 
buticr = “string: 
if (buffer == (char *)NULL) 
{ 
EGlose( ip); 
Feturn —1; 
} 
/* 
* Read in file. Return if their is an error writing the text. 
a 


Bye ese Code ereac(bUurrCa rite, IN£O..St Size, fp). 
Felose tftp); 


if {bytes read < file info.st size) 
{ 

XtFree (buffer) ; 

*string = NULL; 

return. —1; 


} 


BUELer [eile vinto.st size) = *\0"; // Terminate string. 


Beturn, DYLes (read: 
} 


/* 
* Copy filein to fileout. Returns true if the copy was successful and fails 
* other wise 
ze 


Boolean 
CopyFile(char *filein, char *fileout) 
{ 

FILE *fp; 

SCrUeteo cat Live into; 

char *buffer; 

feng bytes read; 


/* 
"Get input file size. Return if we can’t Stat file. 
es 

Pe OS edie Lely, eben iMeEO)s 0) 


102 


{ 


return False; 
) 


| ies 
* Open tie-in pue Tide] Return elif we Gan’ t open the file for reading. 


ae 
fp =. fopen(failein,, “2 )y 


if (fp == NULL) 
return False; 


/* 
* Allocate memory to hold file contents. Return if their was an error 


et 


BUBEors—mrehark. ~) tal loc, rulemiAre.st —Sizeuse. 1); 
PEt eweter —— (char *) NUL) 

{ 

fclose(fp); 


return False; 


} 


ne 

* Read in the input files contents. Return if their was an error reading 
 slole salle 

ms 


bytesiread — fread(butfer, 1, tile info.st size, fp); 
fclose(fp); 


UEe (bytes read = fle into. st size) 
{ 

XtFree (buffer); 

return False; 


} 
/* 


* Open the output file. Return if we can't open the file for writing. 


oat 
fp = fopen(fileout, "w"); 


if (fp == NULL) 
return False; 


/* 
* Write the contents of the input file to the output file. Return if their 
* waS an error writing the file. 
7 


bytes read = fwrite(butfer, 1, file info.st size, fp); 
fclose (fp); 


if (bytes read < file _info.st_size) 
{ 

XtFree (buffer); 

return False; 

} 


return True; 


Reformat the ADA search/maintenance output so we can display it in the 
progress dialog. The ADA has very long lines that needed to be folded. The 


* profile filtering is slightly different from the signature matching. So we 
* use the skip commas to distinguish between the types. 
a 

void 


Reformat(const char *fname, const int nskipcommas) 
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BILE = fpin; 
FILE *fpout ; 
char ~fitemp; 
int brace; 
enar tab([236)/- 
char  *peaby, 


ehar cc; 
int commas = 0; 
/* 


* Return if the calling program gave us a null file name. 


rs 


if (fname == NULL) 
return; 
/* 


* We create a temporary file by adding .tmp to the input file name. Then 
* rename the input file so we can reformat into the correct file. 
Meh 


ftemp = (char *)XtMalloc( (Cardinal) (strlen(fname) + 5)); 
strcpy(ftemp, fname); 
Strcat(ftemp, -tmp'); 


if (rename(fname, ftemp) == -1) 
return; 


brace = False; 

ptab = tab; 

fpin = ftopen(ftemp, “r”); 
fpout = fopen(fname, “w"); 


7 * 
* Try to fold the line after a comma so that the braces line up 
oe 


while ((c = fgetc(fpin)) != EOF) 

{ 

if (ibrace) 

{ 
/* 
* If we have not found a brace look for one. 
a7 


switch (c) 

{ 

f* 

* brace found start looking for end of line. 
oe 


case '{'; 
case '[': 
brace = True; 
break; 


/* 
* If we find a end of line before brace restart tab string 


7 


ease.” \ni: 
ptab=<= tab; 
*ptab =" '\0'; 
break; 


/* 
* Other wise add a space for each character. 
a 


default: 

eee ot | ee 
™pcab =#-'\0'; 
break; 
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) 


} 
{puree a cooue). 


else 


{ 


an 
* brace found now look for the end of the line. 
oa 


Eputce (c,7 cpouc), 

Switch (c) 

{ 

/* 

* If we find a comma put rest of text on next line after 

* tabbing over to line up text with brace. We may need to skip 
* so of the commas first 


7 
case. 
commas++; 


if (commas > nskipcommas) 
{ 
commas = 0; 
fpute(* \n',- fpeue; 
fpucsitab;, tpout); 
} 


break; 


Je 
* Found a new lien so start looking for the first brace on the 
* next line. Also reset the amount to tab over. 


Ds 
Case \N: 
brace = False; 
ptab.= tab; 
*ptab = '\O'; 
commas = 0; 
break; 
aefault: 
break; 
} 
} 
} 
/* 
* We are done reformatting so cleanup 
* 
yf 


fclose(fpin); 

telose(Loout) > 
remove (ftemp); 
XtFree(ftemp) ; 
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APPENDIX B GNAT GENERATED C SOURCE CODE 


Source code generated by the GNAT ADA compiler to initialize the environment. 


A. B_ADA_SYSTEM.H 


vwidumbeada system.n,v 1.1.1.1 1998/01/14 03:40:05 greg Exp $ 
DeaddaesVotem. tl ==epOrtwaré Base Search Interface 
Header file for the ADA systems initialization routine. 


Naval Postgraduate School 
January 13, 1998 


Written by Gregory L. Meckstroth 


+ + oF oF OF OF OF OF OF oF OF OF OF 


/ 


SCECEeeeeoedda anit (Int argc, Char “*argy, char ~*envp) : 
extern “C™ b ada final(void); 


B. B_ADA_SYSTEM.C 


/ * 
"Sold bradausystemse,v 1.2 19938/01/1e 17:40:49 greg Exp $ 
* : 
Ee Deada SyStemac —-— Sotuware Base Sedrch Interface 
* 
* Source code for the ADA systems initialization. This was generated by the 
* GNAT Compiler. 
* 
* Naval Postgraduate School 
* January 13, 1998 
* Written by Gregory L. Meckstroth 
* 
* 


nn 


extern int gnat_argc; 
extern (char “~“Gnat argv, 
SxEeCrn Char =*Gnat envp, 
SRecrihiint GNat Cxle Sstacus, 
void adafinal(); 
void 
adainit () 
{ 

E oleate see clobeals| 


ai ae 
e Maine Et ori ty 
ap 

= fe 
e Tameeoirce Value 
a 

' bs 7 
pe Locking Policy 
oc 

a /* 
eSQueuingsPolicy 
of 

‘ Sa /* 


P Tasking Dispatching Policy 
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ay 
adatinga.l)- 
/* 
* ada elabs (); 
e 
/* 
ada ~characters elabs (); 
ty 
/* 
* ada enaractCers | handling Lab see, 
ay 
ess 
* ada Seharacters  atine. elabs (); 
ey. 
7 
7 Vaile elabs (); 


= gndt. ease suri! elabs ()7 


- gnats ptable elaps 4) 7 


-eOiidit ee elas. (); 


*‘gnat 6 elabb (); 


* interfaces elabs (); 
ay 


system elabs(); 


+ SYStemmumennugen elapse), 


* system exn_lli elabs (); 


* Systeme img bool elabs  ()¢ 


* system img 111i elabs (); 
a 
7* 
' systems img real elabs (i, 
a 
/* 
* system_ parameters elabs. 4); 
a 
/* 
* system_ parameters elabb (); 
7 
interfaces c streams ellabsi()7 
/* 
‘S Mterracess c Streams elabb 4); 
ay 
system  powten_table elabs(); 
/* 
* system standard library elabs (); 
ay 
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pe 
Peayocem.. €xcepei1on table elaber i); 
ons 
System exception cable elabog: 
ada__io_exceptions elabs(); 


ada__strings elabs(); 


je 
* 10 exceptions elabs (); 
ay 
/* 
oes Yocenme scordge ec lenents eras alyiz 
eg 
/* 
SPS Sree scotage se lemenes elas (); 
ae 
/* 
P35 ys cemMeescconddry sstack elabs ()7 
na 
/* 
S7eyscemos img 111. elabb (); 
Ph 
sd Bel 
* system img int elabb ({); 
A 
/* 
7 syscem img bool elabb (); 
ews 
ada__tags elabs(); 
ada__tags elabod:, 
ada__ streams elaps (); 
ada__exceptions elabs({); 
ee 
poo ys cClmeoic kth eOps elabs (); 
ae 
/* 
P System. sSering ops elabp )- 
ey 
/* 
So yScetmecadak Specitic data le elaos 4); 
a 
/* 


; system tasking _soft_links elabs (); 
d Syccem, tasking Ssotc links = elapb(); 
* 
° system task_specific_data_elabb (); 
‘ System secondary stack _ elabb(); 
* 
“y system _stendard_library__elabp ()3 
- 


/* 
Besvyocem -exn iF elabs (); 
os 
/* 
* system unsigned types elabs (); 
a 
ada Strings maps  elabs({); 
ada__ strings maps constants elabs(); 
ada Characters ohandiling elabb(); 
Vs 
“'systcnmebtt ops elabs (); 
Pe 
/* 
* system _ bit_ops elabb (); 
ae 
/* 
* ada strings maps elabb (); 
ay 
/* 
Pesystem far lt  Jelabs (); 
oa 
/* 


* system img biu ellabs ()7 
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a, 
/* 
* system _ img biu elabby(); 
af 
/* 
Sesyseem img... ob elabs (); 
ns 
7? 
7e5ystem) img Tip elabb (); 
a 
/* 
system aim l1u elabs (); 
we 
ys 
Poy scem i megirn elabb (); 
my 
7* 
* system img liw elabs.()? 
i 
/* 
* system img llw_ elabb (); 
nh 
/* 
* system img_uns elaos  (); 
ee 
/* 
* SyYStemaning uns elabb (); 
Pe 
/* 
Pasystem! simgireal elabb (); 
7 
Te 
‘system Img witlee elabs (); 
me 
a 
ee syscCom ping wiveeeclabb (); 
ms 
/* 
* system stream attributes elabs (); 
a 
ve 


P sYSctemueseccam acteributes elabb (); 


/* 
* adaeexcepe rons elabb (); 
a 
System. cinalizatton reot. elabs(); 
/* 


* ‘system cimalization root. elabb {)7 
7 
Syotemuscindli zation implementatzon elabs (); 
j/* 
* system _finalization_implementation_elabb (); 
a 


ada__finalization__ elabs(); 


/* 
fwddas, finals Zation elabb (); 
a 
ada tindlization ist controller elabs(); 
/* 


‘dda finalization  lrst controller elabb (7 
i 
Systemm ti levcontrolyoileck)  elabs{); 


7 * 
“system fille io “elabs {); 
*/ 
Sysceme: filerio.? selabb(); 
ada text_io elabs.(); 
dda text ic elabb(); 
7 
* ddaec oat text som elabs ()7 
ay 
/* 


* ada integer text _10 -elabs (); 
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7 

fe 
“sada. long slong integer text 16 elabs 
ad 

f= 
*“ ada text 10 e6numeration aux elabs 
ay 

/* 
yada. textlio7t loat faux elabs ()7 
7 

/* 
*s2adae floaty text sic Elavbe 

a | 

/* 
* ada text 10 generic aux elabs ()7 
a 

/* 

Sec0deeecwem OC. Cerierie aux elabb (); 
ne 

ieee 


(3 


yet 


* ada_text_io_enumeration_aux__elabb (); 


ae 
/* 
SeAda me eext TOL integer aux elabs (); 


madd Long Jong Integer text 10 ellabb {)- 


7 

* ada __integer_text_io0 ellabb (); 
<7 

/* 

~ system val bool elabs {(); 
ae 

/* 

‘ SVStenevalLecnum  elabs- (), 
wr 

/* 

* system_ val aint elabs (); 
ay 

/* 

* system val lili elabs (); 
a 

/* 

SVadagesee Him. Cm. Mime 6 hax elabb (); 
ef 

/* 

* system_val_llu elabs (); 
nah 

/* 

* system_val_real elabs (); 


(Soda Text iC es rloat auc. clabb {); 


* system_val uns elabs 3) 
ae 
/* 
ets VS ee ied eo Lalo Sen, 
mf 
j* 
S SVeitemo Va auc elabb (); 
ot 
/* 
* system_val_uns__elabb (); 
ae 
ye 
* system_val_real_elabb (); 
ny 
/* 
> Syseemes Val ilu elabbiia:. 
ae 
/* 
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we vocene. Val. Tis. elabb a); 


ee 
= 
* system_val_int elaba sy 
a 
/* 
feoyscem. val tenum elabb 4); 
ey 
7 = 
'Ssystems val baol etabba(); 
e 
is 
* Textile elabs (); 
xi 
/* 
* max elabo), 
ae 
/* 
* omen elabb (); 
<7 
aSeErings elabs(); 
SSEEings elabb(); 
ve 
~sboel “10 elabs (); 
i 
pos 
* bcolmion elabba): 
oo 
/* 
* delimiter pkg elabs (); 
ar 
delimiter pkg_elabb(); 
/* 
eegener ceeurrercascs .OoCation  — elabs  (); 
ae 
7 
+ SGenerre Seeypkg ss clabs (); 
aes 
i= 
Satie G elabss ine 
*/ 
Pe 
Series ee ctiolge ( ) 7 
AS 
/* 
* lookahead _pkg elabs (); 
a 
lookahead _ pkg elabb(); 
/* 
- Wii tase ep km clase (7; 
aa 
millisec pkg elabbi)r; 
/* 
eVeracrcodysceupnd elabs (); 
rae 
Parser gore elabs(); 
/* 
Popewcer lex ad ia elas () 7 
a 
parser lex dfa elabb(); 
parser lex_io_ elabs(); 
parser lex io elabb()? 
parser shift reduce elabs(); 
/* 
Posh eutlis Slabs: 
a 
Shouts elabb(); 
Shavedy tree list ellaibs ()- 


shared free list elabb(); 
generic buffered allocation elabb(); 
Ordevedtoer pkg. — elabbig); 
square root pkg  elabs(); 
square roct pkg  _elabbig), 
generic set pkg elabb(); 


ee 


/* 

* generic mapupk¢ elabs (); 

nf 
generic map_pkg elavps();; 
natural _set_pkg elabs |): 
natural set _ pkg elabn 


ee 
*““Generleusequence pkg elabs (); 
as 
generic sequence pkg elabb(); 
/* 
* ordered map pkg elabs (); 
ey. 
ordered map pkg elabb(); 
PEOtrre types elabs(); 
i 
POGOe Le Calc elabs —():7 
sf 
profile calc elabb(); 
/* 
* text_pkg elabs (); 
ws 
text pkg elabb(); 
7 
~ adasid pkg elabs (); 
le 
/* 
> psdl-tdepkg  selabs <()7 
oy 
psdl id seq pkg elabs(); 
pe 
* op_id pkg elabs (); 
ry 
Op idepkg elabb(); 
Wie 
* excep_id pkg elabs (); 
af 
excep 1d pkg elabb(); 
op_id_set_inst_pkg elabs(); 
Op la set inset pkg elabb(); 
/* 
fT SOueEpuUcsIde pkgs elabse()- 
of 
output_id pkg elabb(); 
timing_map_inst_pkg__ elabs(); 
Le 
; CIming Map instepkg se elabb ()7; 
os 
type _name_ pkg elabs (7, 
type_name pkg elabb(); 
/* 


* psdl id set subtype pkg elabs (); 
ad 
expression pkg elabs(); 
expression _pkg elabb(); 
excep_trigger_map_inst_pkg elabs(); 
j/* 
* excep_trigger map inst _pkg elabb {); 
xy 
exec guard map_inst_pkg elabs(); 


* 

“ exec guard map_inst pkg elabb (); 
é InweEemMas Inse pkg elabs(); 

* 

a init_map_inst_pkg___elabb (); 

7 out_guard map_inst_pkg__ elabs(); 


* out [guard map inst pkg elabb (); 

we 
/* 

* psdl type set subtype pkg elabs (); 
oy 


ne 


Elmer op pkg elabs(); 
timer op pkg elabb(); 


/* 
= =ImMsOp. 20 elabs (); 
ay, 
/* 
Pee Cpl lo elabb (); 
cs 
Lime r OpeSets Mistaper elabs(); 
EAMeY Jop Set instepraus elsabo(); 
timer op _map_inst_pkg elabs(); 
/* 
* €imer Opymapuinse, pkg elabb(); 
‘sd 
trigger pkg elabs(); 
trigger_pkg elabb(); 
trigger map inst pkg elabs(); 
/* 
* Erioger Mapeinscapkg. elabb (); 
2 
/* 
* psdl jeenerete eyepe pkg elabs (); 
"et 


psdl concrete type pkg elabb(); 
parser tokens — ellabs(); 
ee 

* parser lex _elabs (); 

oh 
parser lex elabb(); 
psdl_graph_pkg__ elabs(); 
psd! graph pkg _elabb(); 
psdl component pkg_elabs(); 
psdl_component_pkg__ elabb(); 
Bsc eplor lems selaos ()7 
Componente td types  elabs(); 
component_id types. __elabb(); 
haase diagram_ elabs(); 
psdl_program_pkg_ elabs(); 
psdl program _pkg__ elabb(); 
parser elabs(); 
parser elabb(); 

ie —_ 

‘psd io mme labs (); 

a 
psdl io elabb(); 
Sigegmatch types  elabs(); 
candidate types _elabs(); 
Candidate types elabb(); 
Sig match types elabb(); 


* profile filter pkg __elabs (); 
mi 
profile filter pkg elabb(); 
fil 
* sig_match__elabs (); 
ae 
sig_match elabb(); 
SOftware base elabs(); 
software base elabb(); 
haase_diagram__ elabb(); 
psdl_ profile Clap); 
pretile types elabb(); 
/* 
“soeinte  elabb (7; 
af 
} 
void 
adafinal() 
( 
system_finalization_implementation_ finalize global _ list(); 
) 
int 
Db ada amie (argc, "argv, envp) 
Int argc; 
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Char ~“arey; 
char **envp; 


gGnat arge = argc, 


gnat_argv 
gnat_envp 


argv; 
envp; 


Pa gnacsinieraliuze()-, 
adainit(); 


/* 


= moda sboimre 9 ():; 


ey 
} 


vord 


b ada final() 


{ 


adafinal(); 
meonat finalize |); 
exit (gnat exit status); 


} 

unsigned 
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unsigned 
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unsigned 
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unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 


sb_initB = 0x0164A2F2; 
system _ standard libraryB = 0x522691A4; 


system standard libraryS = 0x/9BO18CE; 
a_stringsB = 0x4A10E5BB; 
a Strings su="0x224054r3, 
system secondary stackB = OxSEAFC39A; 


System Secondary stackS = Ox36DDED40; 
systemS = OxO8FBDA7E; 

system task specific dataB = 0x3FC34A96; 
system task specific datas 0x47178527; 
system_tasking_soft_linksB = 0x06DD5994; 
SyYSctem | tasking sore linkss = 0x6316D326; 
system storage elementsB = Ox6FD7DF62; 
SVSCenimesc Orage ec lementsse=sUxoBZEF/E1; 
SYStem String OpsB — Oxob25e4E-; 

System string _opsS = 0x260A1D23; 

system exception tableB = 0x2A7F6B90; 
system exception tableS = Oxl19CZAE08; 
gnatS = Ox156A40CF; 

gnat_htableB = 0x138A54Cl; 

gnat_htableS = 0x463AD2E7; 

addss— O0xX2307E9ED; 

ada__float_text_10B = Ox5AF53864; 
ada__float_text_ioS = 0x68CB390E; 
ada__text_ioB = 0x67C38C44; 

ada__text_ioS = OxS6ACDF93; 

ada_streamsS = 0x7C25DE96; 

ada__tagsB = 0x07DC67C0; 

ada _tagsS = 0x0A/2F2E2; 

interfacesS = 0x0357E00A; 

iNcGer faces ers el ease sux 9156508, 
Imcerfaces sc Streamss = 0x1lo32/6FB; 
system parametersB = 0x1DD5A020; 

system _parametersS = 0x000E4206; 

system file 10B = 0x5640C74A; 

system file 10S = Ox350F4CFO; 
ada__finalizationB = O0x4F0184F2; 
ada__finalizationS = 0x0A0669D8; 

system _finalization_rootB = 0x26610831; 
system _finalization_roots OxlE9694A4; 
SYS com es eredmealterubucesE Ox3E43967C; 
SYStem Stream attributess —sUx50 -01A60; 
ada __i0 exceptionsS = 0x34054F96; 
system __unsigned_typesS = 0x362290AA; 
system finalization implementations 
system finalization implementations 
ada _ exceptionsB = Ox3016C36D; 
ada__exceptionssS = 0x4CED7A40; 
system file control blockS = 0x7B3BFOFA; 

adam f£inaltzatiouse list controllerB = 0xX35E39753- 
ada finalization list controllerS = 0x34B32999; 
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0x24B3392D; 
Ox3CC4D947; 


unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
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unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 


ada. textiigmeeloat auxB OXOSBCErRIE; 
ada__text_io float auxsS Ox7859E16E; 
ada__text_io_ generic _auxB = Ox2BB82BBF; 
ada__text_lo__ generic _auxS = 0x1A2347ED; 


system img realB = O0x0F48969A; 
system_img_realS = 0x7207087A; 
system fat_ll£S = 0x34COD34E; 
system img lluB = 0x327658F4; 
system img lluS = 0x365A4C95; 
system __1mg_unsB = 0x04FCDBOC; 


system img unsS = Ox0EO7DODF; 
system_ powten tableS = 0x7893525A; 
system _ val realB = Ox513AD14F; 
System SVaterealls Ox4F1238F4; 
System JexmellEes = Ox670FF1D2Z; 
System  e@xn_génB = 0x72152961; 


SyStem sexnigens Ox325B6B9E; 
SYSTEM Vale utr IB — 0x43 FSA73C; 
system val utilS = 0x6B7B6F1B; 
Ghat wi casemuer Bp = OxS0DPD047; 
gnat__case utilS = 0x240BBC41; 
Gavididacemeypess = Ox DCIS; 
candidatesytypess = 0x78BC99B8; 


Adame inlceger, text 1oB = Ox767F630A; 

ada integer text_ioS = 0x44416260; 
SadamEextm Ome ieeger aux = Oxo7Derdo4, 
add tex emto se NGCeger auxS = 0xX6GBHO73Z; 
Systeme imgmorus, = OXSC3FDOBB; 


system img _biuS = 0x3E53F225; 
System img intB = 0x79CE2327; 
system _img_intS = 0x294E114F; 
system img 11bB = 0x56913838; 
Sysccmeiman bibs = Ox71Dr2A7E; 
system img _11iB = 0x746AD087; 
Systeme mg 11is = 0x27F434CC; 
system img _llwB = 0x7909674C; 
system_img_llwS = 0x1l0809F4A; 
system__1mg_wiuB = 0x25C29895; 
system img _wiuS = 0x5811EC30; 
system _val_intB = 0x720C563A; 
System val intS = 0x45FFrée3rc; 
system _val_unsB = 0x5220CEA2; 
Systemuval UnsS = Oxoe€BA7Aol; 
system val 11iB = Ox731F063C; 
System) val 1121S = Ox7AS9FrAd; 
system val lluB = 0x54503248; 
system val Jtus — OxllAEZSED; 


component_id_ typesB = 0x140EE20B; 
component_id_ typesS = Ox2ES5EA4CF; 
g@nat TieB = 0x75421936; 
gnat__ioS = 0x50EB74BA; 
psd Meoncrere: typespkgs 
psdlecncrete type pkgs 
ada_id_ pkgS = 0x14E4C3C0; 

text_pkgB = 0x161438AD; 

text_pkgS = 0x14D28134; 

excep tdypKrge = OxzZre43381; 

excep 1d pkgs = 0x07CH/053; 

Oplid pkgBe—sOx0899C523; 

op_id_pkgS = 0x17A929DD; 

psdl_id pkgS = 0x63D62610; 
psdl id seq pkgS = 0x307B3167; 

generic sequence pkgB = OxlARB 7 Gop, 
generic sequence pkgS = Ox50D2AB4F; 
generic buttered allocations = 0427 2c, 
generic buffered _allocationS = 0x1B10D9A2; 
shared free listB = Ox706DBEEC; 

Shared free listS = Ox2F799CB3; 

EeExt 16S = Ox69339E987 


x789F49BD; 


= 0 
= 0x07162568; 


lookahead _pkgB = 0x509D5DBB; 
lookahead_pkgS = 0x3072E4D5; 
delimiter _pkgB = 0x547FCDD5; 
delamiter pkgs) — 0x71 sonnag; 
io_exceptionsS = 0x00345331; 
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unsigned 
unsigned 
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unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 


maxB = 0x3F531C2E; 


natural set pkgB = Ox01F22FF3; 
natural set_pkgS = 0x6310C34F; 
generic set _pkgB = 0x603BE637; 
generic set pkgS = OxlAB68AA0; 
minB = Ox3FB30C3A; 

square _root_pkgB = 0x24DD13BE; 
square root pkgS = 0xZ2F19C657; 


excep trigger_map_inst_pkgB = 0x72C07046; 
excep trigger map_inst_pkgS = Ox7E7E636C; 
expression pkgB = OxX2E67FBAE; 
expression pkgS = 0x2AE7C6E2; 

psdl id set subtyoe pkgs s— OnZ239A8098, 
type name _pkgB = 0x6E269266; 

type _name_pkgS = 0x47A44445; 
generic map _pkgB = 0x48218COB; 
generic imap pkgs = Ox0TO3DSAT, 

exec guard map_inst_pkgB = Ox73DEA6F8; 
exec_guard map _inst_pkgS = 0x25128C28; 
init_map_inst_pkgB = O0x4E225FB9; 

Mite Map Inst pkgs — OXSBBEECA3, 
Millisec pkgB = Ox55AEC8E0; 

millisee pkgs — OxSCEDIDE7; 

op id set _inst_pkgB = Ox3ADC9B96; 
op_id_set_inst_pkgS = 0x46D25749; 

out _guard_map_inst_pkgB = 0x2705AAD3; 
out_guard_map_inst_pkgS = 0x492BDDA1; 
output_id pkgB = Ox4B1FED76; 
Cubpuit sid pkgs — OxX655E140B; 

psdl_ type set_subtype pkgS = 0x2D37D42E; 


timer op _map_inst_pkgB = 0x74DBBD26; 
timer op _map inst _pkgS = Ox6DA26DDE; 
timer op set inst pkgs = Ox3AZEDESD; 
timer _op_set_inst_pkgS = 0x480D4EA7; 


Elmer Op pkgB = xs 96rs02, 
Eimer cp pkgs = OxIEES6CSB,; 
timing map inst _pkgB = OxS5SDF5268C; 
timing_map_inst_pkgS = 0x0441C90F; 
trigger _map_inst_pkgB = Ox4EFF82BD; 
trigger map inst pkgS = 0x54BDC980; 
Crigger pkgB — Uxsscliey rk, 

trigger _pkgS = 0x435B0A43; 


psdl profileB = 0x04C611ED; 
psdl_profileS = 0x3862EB47; 
profile calcB = 0x76588AAC; 
protile cales y=) 0x67 5003547 
profile typesB = Ox399FBF16; 


profile typesS = 0x251C5B64; 

ada pulong. long anteéger text 168 
ada teng tong integer text_ Los 
sb _utilsB = 0x5B1FB51B; 

sb utilsS = 0x37153D56; 


Ox6BABOOAC; 
OxS99501C6, 


software baseB = 0x61405066; 
software bases = 0x57 cD 23cD- 
haase_diagramB = 0x3EA4D858; 
haase_diagramS = 0x05CFB189; 


protile filteripkge = Ox70BIDSIE, 
profile_ filter pkgS = 0x1CE30E50; 
Sg matchB = OxS1LE7E79C; 

Sig _MatchS = 0x0C693582; 
psdl_component_pkgB = 0x4C1189B1; 
psdl_ component pkgS = 0x5BB79EBO; 
psdl graph _pkgB = 0x61211EEC; 
psdl_graph_pkgS = 0x1BA0590E; 


Sig_match_typesB = 0x04815981; 
Sig Maten _Cypess = "0x57 B0B379; 
ordered set kgs = GxiBlOeDB7; 
ordered set_pkgS = 0x3E04978C; 
ordered map pkgB = Ox0229C7F7; 
ordered map pkgS = Ox5SFED83F5; 


system exn 11iS = 0x1C471A16; 


psdl_ioB = 0x1A68AB53; 
psdl_ioS = 0x01797F9A; 
bool _ioB = Ox7E6A024E; 
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unsigned bool _ioS = 0x063E6452; 

unsigned ada__text_io enumeration auxB OxS99FO027 i; 
unsigned ada__text_io enumeration auxS = 0x2F4E9EFB; 
unsigned ada__charactersS = 0x1B981D87; 

unsigned ada “Characters Sihandlings = 0x3249DBC5-; 
unsigned ada Gnaracters handlingS = Ox2BCCAGF3; 
unsigned ada_ characters latin 1S = 0x16585895; 
unsigned ada_ stringsS = 0x264315D3; 

unsigned ada_ strings _mapsB = 0x41E15328; 

unsigned ada__strings__mapsS = 0x12F98AEB; 

unsigned system _ bit opsB — 0x7DCD4BB2; 

unsigned system_bit_opsS = 0x27196E60; 

unsigned ada__ strings _maps__constantsS = 0x78F8SAAF; 
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unsigned system__img boolB = O0x0D7DB36C; 
unsigned system__img_boolS = Ox3BCODD6D; 
unsigned system val boolB = 0x78F78279; 
unsigned system_ val _bools = Ox7EFA6FOA; 


unsigned int _ioB = 0x015F6910; 

unsigned int_10S = 0x790BOFOC; 

unsigned tim_op_1ioB = 0x11AE93D7; 
unsigned tim_op_10S = 0x793B888D; 
unsigned system )valenumB = 0x453EC2Z3F; 
unsigned system_val_enumS = 0x651DC7B6; 
unsigned parserB = O0Ox615CB17D; 

unsigned parserS = 0x58DBA5S07; 

unsigned parser gotoS = 0x37F1BAAB; 
unsigned parser lexB Ox7S5E4AE3C; 
unsigned parser lexS Ox4B529F9D; 


unsigned parser _lex_ dfaB = 0x580EF18A; 
unsigned parser lex dfaS = 0x700AA2B3; 
unsigned parser lex 10B = 0x6A470754; 
unsigned parser lex 10S = O0x2C68E4E2; 
unsigned parser tokensS = 0x5D546D56; 


UNetgnedepansemsitte reduces = 90x7/047/BES8; 
unsigned psdl program pkgB = Ox6500F87E; 
unsigned psdl_ program_pkgS = 0x7F08D07B; 
/* 

Seep oti Ge yeet seile/opticn list ./max.o -/minzoe./a Strings 6 </bool tos0 
./delimiter pkg.o ./int_io.o ./lookahead_pkg.o ./millisec Spkgco 
-/parser goto.o ./parser lex_dfa.o ./parser lex _io0.0 ./parser shift reduce.o 
-/sb_utils.o ./shared free list.o ./generic buffered allocation.o 
./ordered set _pkg.o ./square root pkg.o ./generic set _pkg.o 
-/generic_map_pkg.o ./natural_set_pkg.o ./generic_sequence pkg.o 

./ordered map_pkg.o ./profile calc.o ./text_pkg.o ./ada_id pkg.o 
wesdiwie pkg.o ./psdl 1a seq pkg.o ./op_id pkg.0 @7excep id pkg-o 

20pm ad: Scteitce Pkg.0 @/@ULpDUE Id pkg.o ./CimMINgGumapeinstepkg.c 
./type_ name npkor 0 ./psdl_id set subtype pkg.o ./expression pkg.o 
./excep trigger_map inst pkg.o ./exec_guard_map_inst_pkg.o 
77 ihetemap inst pkg-o ./out guard map inst pkg-o 
s/psadl type Set subtype pko.o ./timer op pkg.o ./Lim sops10.0 
'/eimer Op set inst pkg.o°./timer op map inst pkg.o0 {7trigger pko.o 
./trigger_ map inst_pkg.o ./psdl_ concrete type pkg.o ./parser tokens.o 
./parser_lex.o ./psdl_graph_pkg.o ./psdl_component_pkg.o 
./component id types.o ./psdl_ program pkg.o ./parser.o ./psdl_io.o 
.-/candidate types.o ./sig_match types.o ./profile filter pkg.o ./sig match.o 
./software _base. © ./naase diagram.o”./psdl profile.o ~/profile types.o 
./sb_init.o -L./ -L/home/greg/PSDL_TYPE-May97/GNAT/ 
-L/home/greg/PSDL_TYPE-May97/GENERIC_TYPES/GNAT/ 
-L/home/greg/PSDL_TYPE-May97/INSTANTIATIONS/GNAT / 
-L/usr/gnat/lib/gcc-lib/i386-linux/2.7.2.1/adalib/ 
=Ih7ust/libyqee=11b/1386—1inux/2:7.2.1/adalib/j-legnat END CUbject file/option 
ies 't 


+ + & OF OF OF OF OF FF OF OF Oe OF OF OF OF OF OF OF OOF OO 
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APPENDIX C PSEUDO ADA SOURCE CODE 


ADA interface between the C++ GUI and multilevel filtering routines. 


A. SB_INTERFACE.ADS 


= Sid: sb intertace.ads,v 1.2 1998701/18017:05:14 greg Exp Ss 
mosbD PhtCiracewdds = —-> SOttCWAre Base SGarchn Interrace:. 
-- Package Spec for the CAPS software base ADA interface. 


-- Naval Postgraduate School 
== January ll, 1998 


-- Written by Gregory L. Meckstroth 


with sb_utils; 
package sb_interface is 
type AString is access string; 


progedure sb init (sbroot: in sb utils.String Pointer; 
MEnaAmMe s+) 20) (‘SH UELTs, String Poincar): 
pragma export (C, sb_init, “sb init”); 


Procedure sb searen(sbroot: in sblutils string Pointer, 
GEname he cbaled boa SthIng PO lce ly, 
Man Profile Tank. nh. out 62 boat, 
Min signature rank, in out float; 
pl file butter Sinescsucils. string Pointer; 
sme file burfer: in SbeveErls String Porneer ); 


pragma export (C, Sb Searcivwecoescaten 37 


PNa Gsb ein eerrace,, 


B. SB_INTERFACE.G 


e- Sich Soeintertace,g,v 1.2 1998/01/18 17:05:14 greq Expa, 
ee ob. Inter eace. Gg) -- SOftEWarTe Base Search Interface 
-=- Package Body for the CAPS software base ADA interface. 


=> ENtry polmtes: intPur, Get Char iine, Get Char Word, Cyto Ada String, 
== Adasstrepy, Display Message line, Display Message, reformat. 


-- Naval Postgraduate School 
-=- January 1l, 1998 


-- Written by Gregory L. Meckstroth 


with text_io; use text_io; 
with ada flodt Ce6xt 16, use ada. float text 10; 
With adasinteger text _ 10, 
with software _ base; 
with sb utils; 
With Psadleeenerete typeupxg, Use esa leconerete type pkg; 
With PrOblleweale, USesprorile calc; 
let 


With psdl profile; use (psdii profile; 

with profile_types; use profile types; 

with component_id_ types; use component_id types; 
with haase diagram; use haase diagram; 

with candidate types; use candidate types; 

with software base; % 

with sig match _ types; use sig match types; 

with sig match; use sig match; , 

With 2 Strings, Use agetrings., 


package body sb interface is 


= PLOCEAULEG 7 eSbaln re 


== DESCYrIPtlOn: “Go slanguage Interface for software base initialization. 
procedure (sbyinverSbeoet: in sb utils.String Pointer; 
hinamerwingsoeuer ls: String Pointer) 1s 
sb dir name: AString; 
header name: AString; 
Nst >a String, 


begin 
sb utils.Display Message line("Initializing Software Base"); 
header name := new string'(sb_utils.C_to Ada String(hfname) ); 
sb dir name := new string’ (sb utils.C to Ada String(sbroot)); 


software BecsewNitialize (sh dir name. aaa header tname sa): 
Sb Gilse . Display Bvesscages ide ("f£inished."), 


NSt) = tera ( Found"); 

nst := nst & integer'image (software base.numComponents) ; 

nst := nst & " components in"; 

nst := nst & integer'image (software _base.numOccupiedPartitions) ; 
nst := nst & " partitions."; 


SoeuUel ssl tsplay Message Tine(ist.s) , 
end sb init; 


=~ §Proceaure:  seesecarch 


== Deseription. “C" language Interface for software base Search. 
procedure sb search(sbroot: in sb_utils.String Pointer; 
qiname: in. sb utils.String Pointer; 
Min, profile rank: in out Eloat, 
min signature rank: in out float; 
Pelle bUubter. sin SboUrI Ts str ingubointer, 
Site Phe pour fem edn Sboeura ls. SeningehOlnkten mas 
Ming pr: float; 
Min sr: float; 
Ene (eandidates: sCandidateset; 
sn, the _branch, another_branch: SigMatchNode; 
q_ops, Glogs; OpWithProfileSeq; 
bateherrle file type; 
Mette SediieerecUltoudit ea eS tring, 
query filename, sm filename, p hist filename, sm hist filename: a _ string; 
CancudavemnileNatcrmes tril (i200); 
length: integer; 
temp_candidate: Candidate; 
query name, pf_file, sm_file: AString; 
sb dir name: AString; 
POteutter pirle: file type; 
Prccedure Cliltering donecs, 
pragma Import(C, Cfiltering_doneCB, “profile filtering _doneCB_ Fv"); 


begin 
sb dir_name := new string" (sb_utils.C to Ada String(sbroot)); 
query name := new string'(sb_utils.C_to Ada String(qfname)); 
pi file := new string’ (sb utils. to. Ada eSeeina (pe. EVE SOU Get) je 
Sma tile 2 — new String (sbaueriise oi LOS Ada String(sm_ file _buffer)); 
min pr := min profile rank - 0.0001; 
MIN Sr := Min Signature yvanky>] 0.00017 


== Reinitialize the search database from the save initialization data. 
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sb utils.Display Message line(“Reinitializing Software Base"); 
Seteware base. reinitialize (sbidir name. all), 
Ssblutils.;pisplay Message line( finished.” ); 


—-— First, do ene profile filtering to reduce the number of components) that 
-- we have to do signature mating on. 


query filename := to_a(query name.all); 
SbeuUtciis.lisplay Message ("PROCESSING “):; 
sb_utils.Display Message_line(convert(text(query filename) )) ; 


SbeuULlis@uusplay Message( Profile Filtering... 2; 
the candidates := software base.profileFilter(convert(text(query filename) )); 
SbeUetisa bsp aveMessege sl inet (bimisned. 


=="BUELeCr the results Go disk so that the “Cr+” anterface can display it 
—— GO the User. 


Greqee(1O burter file, ‘out tile, pt file.all): 
Seusourpuc(l@ butter Tike); 


Duc(! Pound”); 

ada.integer text_io.put(software base.numComponents, 0); 

put(" components in "); 

ada.integer text_1o.put(software base.numOccupiedPartitions, 0); 
Poe Dl inet. spaberelons, |); 


put("There are "); 

adamiived@ hace neice mluledndiddale set pkg. 51z¢(theveanmdidates) 7 0); 
put_line(" possible candidates."); 

candidateSetPut (the candidates) ; 

new line; 

see Outpuc (standarazoucput), 

close(IO buffer file); 

Sbluer ls reftormatipr tilevall, 90), 


-- This is the "C++" callback that will display the results. 
Crilecerimngecdouece), 
the weancdidates == prorileskimiman pr, ene secandidates), 


-- Now do the signature matching on the components that pass profile 
-- filtering. Buffer the results to disk for the "C++" interface. 


create(IO buffer file, out file, sm_file.all); 
See OUEDuE (1OsbuGprer efile), 


if candidate set pkg.size(the candidates) <= 0 then 
put("0 candidates have profile rank >= "); 
ada tloat fexe TO. put (Min (pF, —72,5 270017 
set output (standard output); 
close(IO buffer file); 
rerurn,. 
ena ie, 


SbeUctris Displayevessage( Stguacure Marching... ), 

ada.integer text_io.put(candidate set _pkg.size(the candidates), 0); 
put(" candidates have profile rank >= "); 

ada float text 1o.put(min pr, 2, 2, 0), 


Newel ie; 
EeketeniMc.mcadnidl date), candace seuapkg.scean, (the candidates sy 
temp candidate := software base.signatureMatch (convert (text (query filename) ), 


c, min_sr); 
software base.getCandidateFilename(temp_candidate.component_id, 
candidate filename, length); 
fOr i im 1... length leog 
put(candidate filename(i)); 

end loop; 

new, line; 

Gandidaterrint (Lemp candidate), 
) 
SEL output (standard output); 
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elose (IO butter perlve)e 
sb_utils.Display Message line("done”); 
Sb utils.reformat (snieerle all, 0); 
ena ssp search, 
En¢msoe Int eridce, 


C. SB_UTILS.ADS 


== Sid; sbiutils ade, vl 2. 19938701/139 iOS: 1iworeq exe 
-- sb_utils.ads -- Software Base Search Interface. 
-- Package Spec for the CAPS software base ADA utilities. 


-- Naval Postgraduate School 
== JanWanye Lk, loos 


~- Written by Gregory L. Meckstroth 


with system; 
package sb _ utils is 


-=- POINteGE CovCrenar~ arguments 
SUDEYoe SEringeroineer 1S System.address; 


-- Put and integer to the output stream (used to save search data) 
procedure IntPut(int: Integer); 


-- Get and integer from the input stream (used to read search data) 
procedure IntGet(int: in out Integer); 


-- Get a line that is terminated with a ‘';' (used to read search data) 
procedure Get_Char_Line(cline: in out String; last: in out Integer); 


-- Get a word from the input steam that has separator characters 'J]', '}', 
ees Eat and Eee 
procedure Get Char Word(cword: in out String; last: in out Integer); 


== €onvert a "C“ string {char*) to an ADA string. 
EUnce von € to Adal String {Ene cstring:- in String Pornter) return String; 


-- Copy an ADA string to a "C" string 
procedure Ada Strcpy(the cstring: in String Pointer; the_adastring : string); 


-- Display a software base message on the GUI with new line 
procedure Display Message _line(message: string); 


~~ Display a software base message on the GUI 
procedure Display Message (message: string); 


-- Reformat the search output for display on the GUI 
procedure reformat (filename: string; nskipcommas: integer); 


end Sb utils, 


D. SB_UTILS.G 


=- $Id: sboutils.¢,v 2o251390/017 lol? 205 14s oGreg ExS Ss 
“= Sb Geils .9g ~~ (SObtWa res Biase Sconce iieerrdee 
-~ Package Body for the CAPS software base ADA utilities. 


-- Entry points: IntPut, Get Char Line, Get Char Word, C_ to Ada String, 
-- Ada_Strcpy, Display Message line, Display Message, reformat. 
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-- Naval Postgraduate School 
== January Ll; 1998 


—_— 


-~- Written by Gregory L. Meckstroth 


with lookahead pkg; 
with text_io; 
with ada.integer text io; 


package body sb_utils is 
package Int_IO is new Text_I0.Integer IO (Num => Integer); 
-- Put and integer to the output stream (used to save search data) 


procedure IntPut(int: integer) is 
begin 

Int _lO.Put(item => int, width => 4); 
end IntPut; 


-- Get and integer from the input stream (used to read search data) 
-- The input can have separators that confuse the ADA IO package so 
-- only read in integers numbers. 


procedure IntGet(int: in out Integer) is 
use lookahead _ pkg; 
-- Assume that a number will be less that 256 characters 
POepurter: String (1l..256);; 
last char: Integer; 
last int: Integer; 


begin 
ast Ghar .:= (0; 
while (lookahead pkg.Token in '-'..'9') 
Loop . 
last echare.= last char + 1; 


lookahead_pkg.Get_Char(io_buffer(last_char) ); 
end loop; 
add.integer text to.Get(1e buffer(i. Vast char); 12nt, tast int) ; 
end I ntGet, 


-- Get a line that is terminated with a ';' (used to read search data) 


procedure Get Char Line(cline: in out String; last: in out Integer) is 


begin 
last := 0; 
while lookahead _pkg.Token /= ';' 
loop 
last := last+tl; 
lookahead_pkg.Get_Char(cline(last)); 
end loop; 


lookahead _pkg.Skip Char; 
end Get Chan tune, 


-- Get a word from the input stream that is followed by a separator character 


peocedure Get Char Word{(eword: in Out Strang, “last: in out Integer) is 
Eunetion Is Seperdtor(e: in Character) return Boolean is 


begin 
PieGeama, | OC C —* 45611 i epracket Of -C = 7 "sor c —  }* then 
return True; 
end Ve; 


return False; 
endwlsoseperacer, 


begin 
last := 0; 
while not Is_Seperator (lookahead _pkg.Token) 
loop 
Laster alast +: 4; 
lookahead_pkg.Get_Char(cword (last) ); 
end loop; 


end Get_Char Word; 


53) 


== Convert a. "C" -String Sela.) CO an ADA spring. 


function C to AdavSteimg (ene cstring: in String Pointer) return String eis 


EUNCELGN Strlen(se. string Boincer) 
pragma Import’ (C; “Strlen.~ “strlen ); 
nlen; integers stvlen( the estring)- 
the String. ssterng (1. nien) ; 
EOE (SURG SSteMiemesce at tne cstring,; 
begin 
return the Seeunc. 
end ¢€ to Ada String; 


EFSLUrH. Integer; 


== Copy an ada String=tc aaC string 


procedure Ada Stvepytthe.cstring: in. steinoeroimter, sence adastring 


Taste neecer = wen ddastcing last, 
CSULING een Gee ast+]); 
fOr CStming sce ct ethe ecstring; 


begin 
for 1 ingle alasc, loop 
cstring(i) := the adastring(i); 
end loop; 
estring (last+l) <= character’ first, 


end Ada Strcpy; 
-- Display a message on the GUI with new line 


procedure Display Message line(message: string) is 
Les String Geis) ; 


begin 
Bisptayeicaocage(message); 
LE( is saseli alt; 


prsplay Message(1f); 
end Display Message line; 


-- Display a message on the GUI 


type AString is access string; 

procedure Display Message(message: string) is 
procedure Cdisplay(Cmsg: in out AString); 
pragma Import(C, Cdisplay, “display message FPc"); 
Cmessage: AString; 


begin 
Cmessage := new string(l..message'last+l); 
for i in 1l..message’'last loop 
Cmessage(i) := message(i); 
end loop; 
Cmessage(message'last+l) := character' first; 


Cdisplay (Cmessage) ; 
end Display Message; 


procedure reformat(filename: string; nskipcommas: integer) is 


procedure CReformat(fname: in out AString; skip: in out integer); 


pragma Import(C, CReformat, "Reformat_ FPCci"); 
Cfname: AString; 
Cskip: integer; 


begin 
Cfname := new string(l..filename'lasttl); 
Cskip := nskipcommas; 


for iin 1..filename'last loop 
Cfname(i) := filename(i); 
end loop; 
Cfname(filename'last+l) := character' first; 
CReformat(Cfname, Cskip); 
end reformat; 


end sb utils; 
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string) is 


APPENDIX D MISCELLANEOUS SOURCE FILES 


Help.txt is the source for the HelpMessages. This was created with Microsoftw 


word then saved as HelpMessages.h the converted to a C++ header file. 


HELP.TXT 


Search and retrieval of components from the CAPS software base. This 
dialog box displays the PSDL query, profile filtering and signature 
matching results. The input consists of the query specification, 
minimum profile rank and minimum signature rank. The user can change 
the minimum rank by entering a new value in the appropriate text 
window. The query file name can be changed typing the new name in 
the PSDL Query window. After entering the file name press the enter 
key to update query display. The query must be stored ina file for 
the search routines to work. If the user does not supply a file 
name the default query.psdl will be used. 


After running the search the user can view the results and select 
the appropriate component by pushing the toggle button next to the 
component name. Pushing the OK button will return the selected 
component. 


The Query menu allows the user to manage the PSDL query. 


New: Starts the Syntax Directed Editor to input a new query. 

Open: Open an existing query file. 

Edit: Starts the Syntax Directed Editor to edit the current 
query. 

Save: Save the current query. 


SaveAs: Save the current query in a user specified file. 
Close: Close the search dialog. 
EXi€: Exit the program. 


The Search menu allows the user to run the software base search. 
Start: Start the software base search. 


BUuctons. 
OK: Exits the dialog and returns the selected component name. 
Search: Start the software base search. 
Cancel: ExiG the dialog. 


Initialize components in the CAPS software base. This dialog box 
displays the PSDL specification and component file list. The input 
consists of the component specification in PSDL and the component 
file list. The spec file name can be changed by typing the new name 
in the PSDL Spec window. After entering the file name press the enter 
key to update the spec display. 


Each component in the Software Base is stored in a separate directory. 
After entering all files for a component the user can initialize the 
component directory structure by pressing the ‘Init DIR' button or 
through the Init menu. After the component directory is initialized 
the use can enter another component. This can be repeated until all 
components have been entered. Then the Software Base must be 
initialized by pressing the ‘Init SB’ button or through the Init menu. 


All component files are copied to the component directory no user 
files will be deleted. 


The Spec menu allows the user to manage the PSDL query. 
New: Starts the Syntax Directed Editor to input a new query. 


Open: Open an existing query file. 
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Bdit: Starts the Syntax Directed Editor to edit the current query. 
Save: Save the current query. 

SaveAs: Save the current query in a user specified file. 

Close; Close the search -aralog- 

Exit: Exit the program. 


The component menu allows the user to manage the component file list. 
Add Component files: 


Clear Component file list: 
Clear all: 
Buttons. 
Dismiss: Close the init dialog. 
Init DIR: Initialize ethereomponent directory. 
Init SB: Run the ADA initialization for the Software Base. 
Clear Fl: Cleargehe file list. 


Clear ALL: Clear file list and Component specification. 


EK. MAKEFILE 


PSDL_TYPE_ROOT = /home/greg/PSDL_TYPE-May97 


GEN = m4 generator.m4 


DEL 7oany um —f 
INCLUDES = -I$(PSDL_TYPE_ROOT)/GNAT \ 
-I$(PSDL_TYPE ROOT) /GENERIC_TYPES/GNAT \ 
-I$(PSDL_TYPE_ROOT) /INSTANTIATIONS/GNAT 


COMPILE.ada = gcc $(ADAFLAGS) $ (INCLUDES) 
-SUPPIXES: .¢ .acb 

G0: 
$(GEN) $< > $*.adb 


S(COMPILE.ada) -c $*.adb S$ (OUTPUT_OPTION) 
$(DEU) $*. adb= Sali 


~J9.aGb; 
$(GEN) $< > $@ 

ADAFLAGS = -g 

WARNINGS = -Werror -Wimplicit -Wreturn-type -Wunused -Wswitch -Wcomment -Wformat \ 
-Wchar-subscripts -Wparentheses -Wtemplate-debugging -Wpointer-arith \ 
-Wcast-align -Wstrict-prototypes -Wmissing-prototypes -Wnested-externs \ 
-Woverloaded-virtual -Winline -Wconversion -Wmissing-declarations 

CXXFLAGS = -g $(WARNINGS) -I/usr/include/g++ 


# Don't use warnings on the "ADA" generated "C" code 
CFLAGS = -g 


LDFLAGS = -L/usr/X11R6/lib -L/usr/gnat/lib/gcc-1ib/i386-linux/2.7.2.1/adalib \ 
-L/usr/lib/gec-11b/i386-linux/2.7.2.1/adalib/ -L/home/greg/psdl lib 


Zo 


LOADLIBES =iam —-lxpm —lAt —1SM -LICE -lxXext -—1x%11 <lipsdl -lgnat 


XGui_SRCS = Gui.C SearchDialog.C MaintenanceDialog.C PromptDialog.C Menu.C SDE.C \ 
Display Progress. CscaHibacks .C; Utils. .C 


XGui_OBJS = Gui.o SearchDialog.o MaintenanceDialog.o PromptDialog.o Menu.o SDE.o \ 
DisplayProgress.o Callbacks.o Utils.o 


SB OBJS = sb_interface.o candidate types.o component_id types.o haase diagram.o \ 
preotilemecale. co prorile types.o psc rorile o sbi utils.o sig matemo \ 
Sigemdtehme pes. eo SOttware base.o profile tilterspkg.o b ada system-.o 


XGui: $(XGui_OBJS) $(SB_OBJS) 
S(LINK.C) -o XGui $(XGui_OBJS) $(SB_OBJS) $(LOADLIBES) 


elves | ox lla: 


clean: 
SUDEb ee Guheree ali Seadb *. bak *~ core 


depend: 
makedepend -I/usr/include -I/usr/include/g++ $(XGui_SRCS) 


install: 
/bin/cp -f XGui /home/greg/bin/demoxGui 


# DO NOT DELETE THIS LINE -- make depend depends on it. 


| ai 





APPENDIX E ADA FILTERING SOURCE CODE 


The following appendix is the ADA source code for Jeff Herman’s [1] Profile 
Filtering and Signature Matching. It is included here because some of the routines were 


modified for use in this thesis project. The following files were modified: 


e candidate_types.g 

e component _id_types.ads 
e component_id_types.g 
e haase_diagram.ads 

e haase_diagram.g 

e profile _types.ads 

e profile types.g 

e psdl_profile.ads 

e psdl_ profile.g 

e sig match_types.g 

e software _base.ads 


e software_base.g 


A. CANDIDATE_TYPES.ADS 


with generic sequence pkg; 

wich ordered set pkg; 

with component_id_types; use component_id types; 
with sig match_types; use sig_match_types; 


package candidate types is 


RANK UNKNOWN: constant := -1.0; 


-- Candidate 


type Candidate is record 


129 


protile rank: float 
keyword rank: float; 
Signature_matches: SigMatchNodePtrSet; 
component_id: ComponentID; 

end record, 


function candidateEqual(cl: in Candidate; c2: in Candidate) return boolean; 
function candidateLessThan(cl: in Candidate; c2: in Candidate) return boolean; 
procedure candidateAssign(cl: in out Candidate; c2: in Candidate); 

procedure candidatePut (the candidate: in Candidate); 

procedure candidatePrint (the candidate: in Candidate) ; 


function newCandidate return Candidate; 
procedure generateSigMatchHistogram(filename: in string; c: in Candidate); 


-- CandidateSequence 


-- Note: should use addCandidate to add a candidate to the CandidateSequence. 
a= addCandidate keeps the CandidateSequence sorted. 


package candidate _sequence_ pkg is new generic_sequence _ pkg( 
t => Candidate, average size => 4); 
Subtype CandidateSequence is candidate sequence pkg.sequence; 


function candidateSequenceEqual is 
new candidate_sequence pkg.generic equal(eq => candidateEqual) ; 


function candidateSequenceMember is 
new candidate sequence pkg.generic member(eq => candidateEqual); 


procedure candidateSequenceRemove is 
new candidate sequence pkg.generic remove(eq => candidateEqual) ; 


function candidateSequenceSort is 
new candidate sequence pkg.generic sort("<" => candidateLessThan) ; 


procedure candidateSequencePut is 
New canavaaee sequence pkg.generic pue(put => CandidacePut), 


procedure addCandidate(c: in Candidate; cs: in out CandidateSequence) ; 


-- CandidateSet 


Packadeecandidate SCE pkg is new ordered set pkq(ts—-~ seandidatc, 
eq => candidateEqual, "<" => candidateLessThan) ; 
Subtype CandidateSet is candidate _set_pkg.set, 


procedure candidateSetPut is 
Neweecandidace Set pkg.generic put (put —= candidateruce 


function profileSkim(profile threshold: in float; 
Ene Jcandidates: §in Candidateset) return Candidareser, 


procedure generateProfileHistogram(filename: in string; 
the_candidates: in CandidateSet); 


end candidate types; 


B. CANDIDATE_TYPES.G 


eee ee eee we we we wee we we ee ee we ee ee ee eee ee ew we we we we we we we we we we we we ew ww ww ww we www we we a 


Witiedda. texte lo, 
with ada.float_text_io; 
WIth ada integer atox es lo, 


wLEh component id types; use componentiic types, 
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package body candidate types is 


-- Function: candidateEqual 
function candidateEqual(cl: in Candidate; c2: in Candidate) return boolean is 
begin 
EetuUriee). CONpOnchtlid = "eZ. component 1d; 
end candidateEqual; 


-- Function: candidateLessThan 
-- Description: sort candidates in rank descending order (highest 
aoa rankoif£irst) . 
function candidateLessThan(cl: in Candidate; c2: in Candidate) return boolean is 
begin 
=i LODO 
if cl.profile rank > c2.profile rank then 
Porcurn Leue, 
-- the followin test for less-than is just being paranoid 
-- about potential float equality problems 
elsif cl.profile_rank < c2.profile rank then 
return false; 
else 
return cl component 1d =< e2-component 1c; 
end if; 
end candidateLessThan; 


-- Procedure: candidateAssign 


-- Description: makes a safe copy of a Candidate. This is primarily 
-- necessary because of the SigMatchNodeSet 


procedure candidateAssign(cl: in out Candidate; c2: in Candidate) is 
begin 


eli prget -etemia = C2 .PlLOrll eo urank, 
el. kéyword rank <= ¢2.keyword rank, 
cl.component_id := c2.component_id; 


sig_ match node ptr set_pkg.assign(cl.sSignature matches, 
e2.5ignature matches); 
end candidateAssign; 


=a PLOcedure.-cGandidaverut 

Procedure scandidacerPuk (the candidate: in Canaedace) is 

begin 
ada.text_io.put("( "); 
didastnteger text ic put ( the candidates eenponent sid, 0 7; 
ada.text_io.put(" | "); 
ada.float_text_io.put (the candidate.profile rank, 1, 2, 0); 
ada. CEXtmie put (se) 7 
SigMatchNodePtrSetPut (the _candidate.signature_ matches); 
ada. texto .put(” )~); 

end candidatePut; 


-- Procedure: candidatePrint 
PEOCcdUre Candida cerrine eile cana aace.. In Candidate) mais 
begin 
ada. Ext jlo. put (~ Component ID: "); 
ada.integer text losput({the candidate.component_id, 0); 
ada.text_io.new_ line; 
addetextetonpul | Profile Rank: "); 
ada. float_text_io.put(the candidate.profile rank, 1, 2, 0); 
ada.text 10.put(" Number of signature match solutions: “"); 
ada.integer_text_1o.put(sig_match_node ptr_set_pkg.size( 
tiececandidate. signature matches), 10); 
ada. vextmle New Line, 
SsigMactenliodePtrSet Print (the edandidate. signature matenes) ; 
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end candidatePrint; 


~~ 


-- Function: newCandidate 


function newCandidate return Candidate is 
return val: Candidate; 


begin 
return_val.profile rank := RANK_UNKNOWN; 
return_val. keyword rank := RANK UNKNOWN; 
return _val.signature_ matches := sig_match_node ptr_set_ pkg.empty; 


return return_val; 
end newCandidate; 


-- generateSigMatchHistogram 

-- Description: generates histogram data of the signature ranks for the 

= set of signature matches and saves it to a file so it can be 
—— read by a charting program. The format is one line 

is for each pair where the first item of the pair is the 

= profile rank and the second item is the number of 

aaa Candidates with that rank. 


procedure generateSigMatchHistogram(filename: in string; c: in Candidate) is 
ft: ada.text_10.file type; 
lastsfank:s flea, 
CGunt? Matural— 0; 
temp snp: SigMatchNodePtr; 


procedure putPair(the rank: float: the_count: natural) is 


begin 
adda flOdustextulo.puc(f£t, the rank ei 2, 0); 
aGattcKealowput( fe,“ "5 


ada.integer text io.put(ft, the count); 
jd ctecorrmilO mew slane (tt) 7 
end putPair; 


begin 
ada.text_l1o.create(ft, ada.text_io.out file, filename); 


if sig match_node ptr set _pkg.size(c.signature matches) = 0 then 
ada.text 10.close(ft); 
return; 
end sit, 
CeMpe spe. -eolg Match NOde ptr Selpkc. ferehn(e. signature matches,, 1); 
last_rank := temp_snp.signature_rank; 


fOreden @istip. 2 lgMatcnNodePtr), Sig match node pir Set pkg.Sscan, 
(c.signature matches), 
if snp.signature rank /= last_rank then 
PUuEPale (last rank, Count), 


last_rank := snp.signature_rank; 
eount <= 1; 

else 
counk == count +.1; 

end if; 


) 
putPair(last_rank, count); 


ada. text 10. Close (iii 
end generateSigMatchHistogram; 


-- Procedure: addCandidate 


procedure addCandidate(c: in Candidate; cs: in out CandidateSequence) is 


begin 
candidate sequence_pkg.add(c, cs); 
cs := candidateSequenceSort(cs); 


end addCandidate; 


-- Function: profileSkim (for CandidateSet) 
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-- Description: filters out the candidates that do not meet the given 
-- profile threshold. 
runction profileskim(profile threshold: in float; 
the candidates: in CandidateSet) return CandidateSet is 
return val: CandidateSet; 
begin 
return val := candidate_set_pkg.empty; 
foreach((c: Candidate), candidate _set pkg.scan, (the candidates), 
if c.profile rank >= profile threshold then 
candidate set_pkg.add(c, return_val); 
end if; 
) 
return return val; 
end profileSkim; 


-- Procedure: generateProfileHistogram 

~- Description: generates histogram data of the profile ranks for the 
—= set of candidates and saves it to a file so it can be 
-- read by a charting program. The format is one line 
=r for each pair where the first item of the pair is the 
-- profile rank and the second item is the number of 

-- candidates with that rank. 


procedure generateProfileHistogram(filename: in string; 
Enewecandrdates. Canuvaatcser) #15 
Ft: ada text 10. filentype; 
lastorank: float; 
Count: Natural <= 0; 
temp candidate: Candidate; 


Beecedure putPair(the mank: Silcac.. Lhe count enacura |) ais 
begin 

ada. ElGaterextsto.puE(TE, the rank, 1, 2, 0)-% 

ada. Coxe TO-pUETEE, " "); 

ada IMEegGerstextalO.pulL (Ee, tiesecoune) 

ada Gbext  lo-new line (ft), 
end putPair; 


begin 
ada.text_io.create(ft, ada.text_io.out_file, filename); 


if candidate set_pkg.size(the candidates) = 0 then 
ada text 10.Closeg tt); 
return; 
endei i; 
temp ecandicdace =.= Candidate SCE pkg. tetciVEne canaidaces sa 
lasterank ;= tempucandidate profile vrank, 


foreach((c: Candidate), candidate _set_pkg.scan, (the candidates), 
if c.profile rank /= last_rank then 
Plt Pa ta(lasts rank, scount).: 


Tast_rank := ¢c.profile rank; 
count. -:= 2; 

else 
Count += count + ie 

end if; 


) 
PUCPalT i last rank, coun): 


ada. EexXtni6.close( ft), 
end generateProfileHistogram; 


end candidate types; 


C. COMPONENT ID_TYPES.ADS 


== Package spec. Component ida ypes 


—— ee ee ee ee ee ee a ae ae ee ee ae a ee ee es ee ee es es ee ee 


with gnat.1o0; use gnat.io; 


with generic map pkg; 

with generic_set_ pkg; 

with psdl_concrete_type_pkg; use psdl_ concrete type pkg; 
with sb utils; 2 


with psdl profile; usespsdlprotite; 


package component_id_ types is 


-- ComponentID 


subtype ComponentID is integer; 


Procedure componentIDPut(c_id: ComponentID); 


-- Component 
-- Note: Make sure to use createComponent to instantiate a new Component. 
-- This will ensure that generics_mapping is initialized. 
type Component is record 
pod! sielenamc- text, 
generics mapping: GenericsMap; 
end record; 


function createComponent return Component; 


procedure addGenericsMapping(generic_type_id: psdl_id; 
actual type id: psdl id; the component:in out Component); 


function componentEqual(cl: in Component; c2: in Component) return boolean; 


procedure componentPut (the component: in Component); 
procedure componentGet (the_component: out Component); 


-- Component! DMap 
package component_id_map_pkg is new generic_map_pkg( 
key => ComponentID, 
result => Component, 
eq_key => "=" ; 
@q ses )—— ComponentEqual, 
average size => 8); 
subtype ComponentIDMap is component_id map _pkg.map; 
-- These raise an execption 
-~ procedure componentIDMapPut is new component_id _ map_pkg.generic_put ( 
-- key put => put, res put => component Put) ; 
-- procedure componentIDMapFilePut is new component_id map _pkg.generic file put ( 
-- key put => put, res_put => componentPut); 


procedure componentIDMapPut (Comp _IDMap: ComponentIDMap) ; 


-- ComponentIDSet 

package component_id_set_pkg is new generic_set_pkg( 
t => ComponentID, 
average size => 8, 
eq => w=") - 

subtype ComponentIDSet is component_id_set_pkg.set; 


procedure componentIDSetPut is 
new component, 1d iset pkg.generic pul (put = —-> sbeutirls- IntPur); 


procedure componentIDSetFilePut is 
new component_id_set_pkg.generic file put(put => componentIDPut); 
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procedure componentiIDSetGet is 
new component_id_set_pkg.generic_input(input => sb_utils.IntGet); --gnat.io.put); 


end component_id types; 


D. COMPONENT _ID_TYPES.G 


aaa sss ss ee ww ee we we es ee ee ae ae ai i i i ee ee ee ee 


with text_io; 
With vada. Imteger text 10, 


with psdl_concrete_type_ pkg; use psdl_concrete_type_pkg; 
package body component id types is 
package Int 10 1s new Text IO.Integer_1O (Num => Integer) ; 


-- Procedure: componentIDPut 
procedure componentIDPut(c_ id: ComponentID) is 
begin 
ada.integer text_io.put(c_id, 0); 
end componentIDPut; 


-- procedure: componentIDMapPut 
procedure componentIDMapPut (Comp_IDMap: ComponentIDMap) is 
map size: integer; 
begin 
foreach((the_comp_id: ComponentID; the_component: Component), 
component_id map pkg.scan, (Comp_IDMap), 
ing 2O.Sut (ther compaid, 0) 
Eextelo. purus) jy; 
text_io.put (convert (the _component.psdl_ filename) ); 
EEkEE On pues 4 
Map Size ;= generics map pkg.size(the component.generics mapping) ; 
if map size < 1 then 
EexG Oy putt” 7); 
else 
genericsMapPut (the_component.generics mapping); 
end if; 
text_io.new_line; 
) 
end component IDMapPut; 


-- Procedure: createComponent 

function createComponent return Component is 
return_val: Component; 

begin 
generics map_pkg.create(empty, return_val.generics mapping); 
return return val, 

end createComponent; 


-- Procedure: addGenericsMapping 
procedure addGeneriesMapping (generic tCypenia: psdilid; 
actual_type_ id: psdl_id; the component: in out Component) is 
begin 
generics_map_pkg.bind(generic_type_id, actual type id, 
the_component.generics mapping); 
end addGenericsMapping; 


-- Function: componentEqual 
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function componentEqual(cl: in Component; c2: in Component) return boolean is 
begin 
if not eq(cl.psdl_ filename, c2.psdl filename) then 
return false; 
end if; 


return generics map _pkg.equal(cl.generics_mapping, c2.generics mapping); 
end componentEqual; 


-- Procedure: componentPut 


procedure componentPut (the component: in Component) is 


begin 
text_io.put (convert (the component.psdl filename) ); 
Eext 16. pus (sai). 


Gener lesMapeue Eneweomponent.generiles mapping); 
end componentPut; 


-- Procedure: componentGet 
procedure componentGet (the component: out Component) is 
filename: string (1. .255) ;7 


begin 
text_io.get (filename) ; 
--the_component.psdl filename := text (filename); 


--genericsMapGet (the_component.generics_ mapping); 
end componentGet; 


end component _id types; 


E. HAASE DIAGRAM.ADS 


with generic map_pkg; 


with profile types; use profile types; 
WLth Component 1d types; use component id types; 


package haase diagram is 


-- Types 


-- type HaaseNode is private; 
-- type HaaseDiagram is private; 


-- HaaseNode 


type HaaseNode is record 
key: ComponentProfile; 
components: ComponentIDSet; 
children: ComponentProfileSet; 
end record; 


function haaseNodeEqual(hnl: in HaaseNode; hn2: in HaaseNode) 
return boolean; 


procedure haaseNodeAssign(hnl: in out HaaseNode; hn2: in HaaseNode); 
procedure haaseNodePut (the haase_ node: in HaaseNode) ; 
procedure haaseNodeGet (the haase node: in out HaaseNode; last_node: in out boolean); 


procedure haaseNodePrint(the haase node: HaaseNode); 
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-- HaaseDiagram 


package haase_ node map_pkg is new generic _map pkg( 
key => ComponentProfile, 
result => HaaseNode, 
eq_ key => componentProfileEqual, 
eq res => haaseNodeEqual, 
av CLG Cra ee ma ssCH: 
subtype HaaseDiagram is haase node map _pkg.map; 


-- procedure haaseDiagramPut is new haase node map pkg.generic_ put ( 
-- key put => componentProfilePut, res put => haaseNodePut); 


== procedure haaseDiagramilePut 15 new haase mode map ipkg.generic file put{ 
-- key put => componentProfilePut, res put => haaseNodePut); 


procedure haaseDiagramPut (the haase diagram: HaaseDiagram) ; 


-- procedure haaseDiagramGet is new haase node map _pkg.generic_ input ( 
—-- key input => componentProfileGet, res_input => haaseNodeGet) ; 


procedure haaseDiagramGet (diagram: in out HaaseDiagram); 


procedure haaseDiagramPrint (the_haase diagram: HaaseDiagram) ; 


procedure generateGML(the haase diagram: in HaaseDiagram; 
filename: in string); 


-- Operations 


function createHaaseNode(key: in ComponentProfile) return HaaseNode; 
function createHaaseDiagram return HaaseDiagram; 


procedure addComponent (the_comp_id: in ComponentID; 
the haase node: in out HaaseNode); 


procedure addChild(the_child_key: in ComponentProfile; 
the haase node: in out HaaseNode); 


procedure addHaaseNode(the_haase node: in HaaseNode; 
the_haase diagram: in out HaaseDiagram) ; 


procedure addBaseNodes (the _haase diagram: in out HaaseDiagram); 


procedure connectNodes (the haase diagram: in out HaaseDiagram); 


= Oriva ce 


end haase diagram; 


F. HAASE_DIAGRAM.G 


with 


with 


with 
with 
with 
with 


E@Xt 10; Use texu lio, 

generic _map_pkg; 

Profile types, use profile types; 
component_id types; use component_id types; 


psdl_ profile; use psdl profile; 
software base; 


package body haase diagram is 
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-- Function: createHaaseNode 


—— 


-- Description: create and initialize a HaaseNode for use. 


function createHaaseNode (key: in ComponentProfile) return HaaseNode is 
return_val: HaaseNode; 


begin 
profile _id sequence _pkg.assign(return_val.key, key); 
return_val.components := component_id set _pkg.empty; 
return_val.children := component_profile set _pkg.empty; 


return return val, 
end createHaaseNode; 


-- Function: createHaaseDiagram 


-- Description: create and initialize a HaaseDiagram for use. 
function createHaaseDiagram return HaaseDiagram is 
begin 
return Naase node map pkg.create( 
eréat eéHadselicde (protilée 1d sequence pkg empry) );; 
end createHaaseDiagram; 


-- Function: addComponent 


-- Description: add a ComponentID to the HaaseNode. 
procedure addComponent (the comp_id: in ComponentID; 
the haase node: in out HaaseNode) is 
begin 
component_id_set_pkg.add(the_comp_id, the_haase_node.components) ; 
end addComponent; 


== Function: addchild 
-- Description: add a ComponentProfile that represents the 
= key to a child HaaseNode to the HaaseNode. 
procedure addChild(the child_key: in ComponentProfile; 
Ene wtieadse NOCe we aoutiadSCNOdG) 15 
begin 
component profile set _pkg.add(the child key, the_haase node.children); 
end addChild; 


_—— 


-- Function: addHaaseNode 


-- Description: add a HaaseNode to the HaaseDiagram. 
procedure addHaaseNode (the haase node: in HaaseNode; 
Che haase diagram: in out HaaseDiagram) is 
temp key: ComponentProfile; 
begin 
Prot miewrdysequence pkg.assign(temp key, the Nhaaseunode: key); 
haase_node_map_ pkg.bind(temp_key, the _haase node, the_haase_ diagram); 
end addHaaseNode; 


—_—— 


-- Procedure: addBaseNodes 

-- Description: add base nodes for the nodes already in the diagram. 

-- This is done by adding a node for each profile in 

a the key for each node in the diagram. Note, duplicates 
-- will not be added. 


procedure addBaseNodes (the _haase diagram: in out HaaseDiagram) is 
new diagram: HaaseDiagram; 
new_node: HaaseNode; 
new_key: ComponentProfile; 

begin 
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new diagram := createHaaseDiagram; 
haase_ node map _pkg.assign(new diagram, the haase diagram); 
new_key := profile id sequence pkg.empty; 


foreach((p_id: ProfileID), 
profile lookup table pkg.res set pkg.scan, 
(software base.getProfileliDs), 
addProfileID(p_id, new_key); 
if not haase_node_map_pkg.member(new_key, the_haase diagram) then 
new node := createHaaseNode (new_key); 
addHaaseNode (new_node, new_diagram); 
end if; 
new key := profile 1d sequence pkg.empty; 
) 


haase node map _pkg.assign(the_haase diagram, new_diagram) ; 
haase node map_pkg.recycle(new_ diagram); 
end addBaseNodes; 


-- Procedure: connectNodes 

-- Description: connect nodes in diagram. Invariant: 

-- m2 15 nis child tt subbag (nl. key, nZ.Kkey) sand 

-- there 1s no node n3 such that subbag(nl.key, n3.key) 
-- and subbag(n3.key, n2.key). 


-- Note, an entirely new diagram is constructed because 
as scan returns copies of the nodes in the haase diagram, 
—— not the actual nodes. 


procedure connectNodes (the haase diagram: in out HaaseDiagram) is 
new_node: HaaseNode; 
new_diagram: HaaseDiagram; 
Goeund n3: boolean; 
begin 
new_diagram := createHaaseDiagram; 
foreach((nl_key: ComponentProfile; nl: HaaseNode), 
haase node map pkg.scan, (the_haase diagram), 
new_nhode := créateHaaseNode(nl key); 
haaseNodeAssign(new_node, nl); 


foreach((n2_key: ComponentProfile; n2: HaaseNode), 
haase node map pkg.scan, (the_haase diagram), 
if not haaseNodeEqual (nl,n2) then 
if Subbag(nl key, nZ_ key) then 
Coune elo. —slal se, 
foreach((n3_ key: ComponentProfile; n3: HaaseNode), 
haase node map pkg.scan, (the haase diagram), 
2£ not found ns then 
if (not haaseNodeEqual(ni,n3)) and 
(not haaseNodeEqual(n2,n3)) then 
if subbag(nl_key, n3_key) and 
subbag(n3 Key,902 key) then 
found Ws == true, 
end if; 
end if; 
end if; 
) 
if not found_n3 then 
addChild(n2_key, new_node); 
end if; 
end if; 
end if; 
) 
addHaaseNode(new_node, new_diagram); 
) 
haase node map _pkg.assign(the haase diagram, new diagram) ; 
haase_ node map_pkg.recycle(new_diagram); 
end connectNodes; 


-- Function: haaseNodeEqual 
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~- Description: checks for equality of two haase nodes by 

-- comparing the keys. 

function haaseNodeEqual(hnl: in HaaseNode; hn2: in HaaseNode) 
return boolean is 

begin 
return componentProfileEqual(hnl.key, hn2.key); 

end haaseNodekEqual; 


-- Procedure: haaseNodeAssign 


-- Description: creates a duplicate of hn2. 
procedure haaseNodeAssign(hnl: in out HaaseNode; hn2: in HaaseNode) is 
begin 
profile id sequence pkg.assigni(hnl.key, hn2.key); 
component_id_set_pkg.assign(hnl.components, hn2.components) ; 
== COMpOnentr profile set pkq.assign(hnl eniidren, nniz children); 
end haaseNodeAssign; 


== Procedure aiaascnoaerit 
procedure haaseNodePut (the _haase_ node: in HaaseNode) is 
begin 
componentProfilePut(the haase node.key); 
componentIDSetPut(the_haase_ node.components) ; 
componentProfileSetPut(the_haase_node.children); 
end haaseNodePut; 


-= Procedure: haaseNodeGet 

procedure haaseNodeGet (the haase node: in out HaaseNode; last _node: in out boolean) is 
Pirseekey: Frorilerb, 
temp_comp profile: ComponentProfile; 


begin 

componentProfileGet (temp _comp_profile); 

first key == profile id sequence pkg:tetch (temp comp profile, 1)7 

if first key >= 0 then 
last node := False; 
the_haase node := createHaaseNode(temp_comp_profile); 
componentIDSetGet (the_haase_node.components) ; 
eomponentProfileSetGet (the haase node children), 

else 
fast nede 2—= True; 

end if; 


end haaseNodeGet; 


-- Procedure: haaseNodePrint 
procedure haaseNodePrint (the_haase_node: in HaaseNode) is 
begin 
put ("Key : a 
componentProfilePut(the_haase_node.key); 
new_line; 


put("Components: "); 
componentIDSetPut (the _haase node.components),; 
new line; 


putt Carldren. «). 
component ProfileSetPut (the_haase_node.children); 
new_line; 

end haaseNodePrint; 


-- Procedure: haaseDiagramPrint 
procedure haaseDiagramPrint(the_haase diagram: in HaaseDiagram) is 
begin 
foreach((node_ key: ComponentProfile; node: HaaseNode), 
haase_ node map pkg.scan, (the_haase diagram), 
haaseNodePrint (node) ; 
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new_line; 
) 
new line; 
end haaseDiagramPrint; 


_—— 


-- Procedure: haaseDiagramPut 
procedure haaseDiagramPut(the_haase_ diagram: in HaaseDiagram) is 
begin 
foreach({ (node_key: ComponentProfile; node: HaaseNode), 
haase node_map pkg.scan, (the_haase diagram), 
haaseNodePut (node) ; 
new_line; 
) 
new_line; 
end haaseDiagramPut; 


-- Procedure: haaseDiagramGet 

procedure haaseDiagramGet (diagram: in out HaaseDiagram) is 
node: HaaseNode; 
last_node: boolean; 


begin 
loop 
haaseNodeGet (node, last_node); 
if last_node then 
exit; 
end if; 
addHaaseNode (node, diagram) ; 
end loop; 


end haaseDiagramGet; 


-- Procedure: generateGML 
-- Description: generate a GML file to graphically represent the 
== HaaseDiagram. 
procedure generateGML(the_haase_ diagram: in HaaseDiagram; 
filename: in string) is 
id: natural := 0; ~-- unique ID counter 
the_id: natural; 
gml_file: file type; 


function new_id return natural is 
begin 

1G. diductedr 

return id; 
end new id; 


package temp_map pkg is new generic map_pkg ( 
key => ComponentProfile, 
result => natural, 
eq key => componentProfileEqual, 
eq res => "a" : 
average size => 8); 
subtype tempMap is temp_map pkg.map; 


temp map: tempMap; 


begin 
create(gml file, out_file, filename); 
put(gml_ file, “graph [ id "); 
put(gml_file, integer'image(new_id)); 
Bue Fine (om file, “ directed 1"); 


temp_map_ pkg.create(id, temp_map); 


-- make the nodes 
foreach((node_key: ComponentProfile; node: HaaseNode), 
haase_ node map pkg.scan, (the_haase diagram), 
put(gml_ file, “node [ id "); 
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the_id := new_id; 
Putioml tile, integer! imageithe 1d) jc 
put(gml file, ™ label """); 
componentProfileFilePut(gml_file, node.key); 


put limemgmil  ctey ee 


temp_map_pkg.bind(node.key, the_id, temp_map); 
) 


-- make the edges 
foreach((node_key: ComponentProfile; node: HaaseNode), 
haase_node_map_pkg.scan, (the _haase diagram), 
foreach((child_key: ComponentProfile), 
compenent profile set_pkg.scan, (node.children), 
PUt(Gniafite, “edge [ id"); 
put(gml_file, integer'image(new_id)); 
put(gml file, " source "); 
put(gml file, integer'image(temp map pkg.fetch(temp map, 
node.key))); 
put(gml file, " target "); 
put(gml file, integer'image (temp map pkg.fetch(temp map, 
child key))); 
Pubwline (amt iver 


) 


Puceline(cmipeiile,y  )"); 
close(gmittric); 


temp_map_pkg.recycle(temp map); 
end generateGML; 


end haase_ diagram; 


G. PROFILE_CALC.ADS 


ec ce cm cm cm ww cm ee we ee ce we ww ww i es ee 


Package Spec: profile calc 


This package contains functions and types that support the computation 
of profiles from numeric representations of signatures. 


Description of numeric signatures: Positive integers represent 
instances of non-generic types in the signature. Negative integers 
represent instances of generic types in the signature. Finally, 

a 0 is used to terminate the array of integers representing the 
signature. 


Examples of numeric signatures: 
[integer, char, float -> integer] = 
[integer, generic, float -> float] 
(genericl, generic2 -> generic2] 


Po 2737 Os 
> (eH 15257 57 0) 
=> (-1,-2,-2,0] 


| oe 


Profiles are sequences of integers. 


Generic Types: 

Generic types cause more than one profile to be generated for a 
Single signature. Hence, computeArrayProfileWithGenerics returns an 
array of ArrayProfiles, ProfileValues, bound by NumProfiles. 


ArrayProfiles are terminated with PROFILE_TERMINATOR. For example, 
the protile s,i1,2)|>1s returned as (3, 1,1,2,-92 1. 


Eventually a different method for handling generic types will be 
employed and will likely do away with the ArrayProfile data type. 


_—— cc cr ce ce ce ee ee ee ee ce ee ee ee ee ee ee wee wee ee ee i ee ee ww ww eR ewe ww ew Se SP Ow we SP Se eS Swe ee 


with profile types; use profile types; 


package profile Calc is 
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= Lypes 


MAX _SIG_LENGTH: constant := 100; 

MAX PROFILE LENGTH: constant := 100; 

MAX PROFILE VARIATIONS: constant := 100; -- for generic types 
PROFILE TERMINATOR. = censtant := =99; 


subtype SignatureLengthRange 1s Positive range 1..MAX SIG LENGTH; 
subtype ProfileLengthRange is Positive range 1..MAX_PROFILE_LENGTH; 
subtype ProfileVariationRange is Positive range 1..MAX_ PROFILE VARIATIONS; 


type Signature is array (SignatureLengthRange) of Integer; 
type ArrayProfile is array (ProfileLengthRange) of Integer; 
type ArrayProfiles is array (ProfileVariationRange) of ArrayProfile; 


-- Functions 


function computeProfile(T: in Signature) return Profile; 
function computeArrayProfile(T: in Signature) return ArrayProfile; 


-- note NumProfiles should be 0..MAX_PROFILE_VARIATIONS, not Natural 
procedure computeArrayProfileWithGenerics ( 

T: in Signature; 

ProfileValues: out ArrayProfiles; 

NumProfiles: out Natural); 


function printSignature(sig: Signature) return SignatureLengthRange; 
function printArrayProfile(prof: ArrayProfile) return ProfileLengthRange; 


end profile calc; 


H. PROFILE CALC.G 


ce ce we we ew we ce ww we ee wee we we wee we wee we wee we wee ee wee wee ee ee ee ee ee we ee ee we we ee we ee we we es ee ie i 


with gnat.io; use gnat.io; 
with profile types; use profile types; 


package body profile cale is 


-- Function: convertToSequence 

-- Description: helper function to convert an ArrayProfile (an 
<a array of ints terminated with PROFILE TERMINATOR) 
=o to a Profile (a sequence of ints). 


function convertToSequence (Prof: ArrayProfile) return Profile is 
returnival:  Protile, 
i, count: ProfileLengthRange; 


begin 
COunG. <= s; 
while Prof(count) /= PROFILE TERMINATOR and count <= MAX PROFILE LENGTH loop 
COuneas= Count + i; 
end loop; 
COuUnE := count — 1; 
return val := 0; 


EOr 2 in l.scounme loop 
retuxcnevaly := returneval + (long Jong integer(Prok(1)) 7 
ClO (count—1) je 
end loop; 


return return val; 
end convertToSequence; 


function printSignature(Sig: Signature) return SignatureLengthRange is 


Num: SignatureLengthRange; 
begin 
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Num := 1; 

Puree [eis 

while Sig(Num + 1) /= 0 loop 
Put (Sig(Num)); 
if Sig(Num + 2) /= 0 then 


Put Ge es 
end if; 
Num := Num + 1; 
end loop; 
Put i => Ses 
Put (Sig(Num)); 
PUEIC I: oe 


return Num; 
end printSignature; 


function printArrayProfile(Prof: ArrayProfile) return ProfileLengthRange is 
Num: ProfileLengthRange; 


begin 
Num := 1; 
Pie (7) 


while Prof(Num) /= PROEILE TERMINATOR and Num < MAX PROFILE LENGTH loop 
Put (Prof(Num)); 
if Prof(Num + 1) /= PROFILE TERMINATOR then 


Put aaa ae 
end if; 
Num := Num + 1; 
end loop; 
PUE( oy 


return Num; 
end printArrayProfile; 


function computeProfile(T: Signature) return Profile is 
begin 

return convertToSequence (computeArrayProfile(T)); 
end computeProfile; 


function computeArrayProfile(T: Signature) return ArrayProfile is 
Result: ArrayProfile; 
Result Count ; Integer; 
NumResSort: Integer; 
NumOneSorts: Integer; 
I,J: Integer; 
L: SignatureLengthRange; 
SortValues: array (SignatureLengthRange) of Integer; 
SortNums: array (SignatureLengthRange) of Integer; 
NumSorts: Integer; 
Found: Boolean; 
begin 
-- Compute Profile[1l], Total Number of Sorts. 
Result Count := 1; 
J := 0; 


-- set L to number of elements in T 
-- note, this is the first number in the profile 


L. o= 23 

while (T(I) /= 0 and I <= MAX SIG LENGTH) loop 
Teg Tio aly 

end loop; 

Loe Lf = ae 

Result(Result Count), := — 07 


-- Compute Profile(2], Number of Times Result Sort in Signature. 

-~ note, Nguyen's thesis just uses 0 or 1 to indicate if the 

-- result sort is used in the input arguments. Representing 

-- the number of times the result sort is used is finer resolution, 
-- which should partition of the software base better. 

NumResSort := 0; 

LO gine bee.is LOOp 


if T(I) = T(L) then 
NumResSort := NumResSort + 1; 
end if; 
end loop; 
Result Count := Result Count + 1; 
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-- Herman 


=— Result(Result Count) := NumResSort;? 
== Nguyen 
if NumResSort > 1 then 
Result (Result Count) := 1; 
else 
Result (Result Count) := 0; 
end it; 


-- Herman Improvement Profile[3] 

-- Add the number of occurrences of the type being defined by the 
-- component (if the component is a type). 

=-Resuleyeount’. .— Result Count + 1; 

aoResviMiEtnesule Count) = T(L+Z), 


-- Herman Improvement Profile[4..8] 
-~- Add the number of occurrences of types in the basic sort groups 
Resultgeount := Result Count + 1, 
Result (Result Count) := T(L+3); 
Resultc Count <= Result Count + 1; 
Result (Result_Count) := T(L+4); 
~-Result Count := Result) Count +. 1; 
panesule (Result yeount) >=) Ti(b+o)", 
Result Count := Result Count + 1; 
Result (Result Count) ™:— T(L+6); 
Result Count == Result Count + 1; 
Reoult (Result sCount) <= T(L+/); 


-- Generate Helper Arrays 

-- SortValues: an ordered SET of sort values 

— e.g. if the signature input T was [1, 1, 2, i, 90] 

-- SortValues would be [1, 2] 

-- NumSorts: the cardinality of the ordered set SortValues 
aa e.g. in the above example, NumSorts would be 2 

=— SOFENUmMS: the Cardinality of each sort in SortValues 

-- e.g. in the above example, SortValues would be [3, 1] 
PO Vareitl plea ln iLOOD 


SortNums(I) := 0; 
end loop; 
SortValues(1) := Titl); 
NumSorts := 1; 
SortNums(1) := 1; 
house ine... EOOp 
Found := False; 
£Or 7 in 1..NumSorcts Loop 
1f T(I) = SortValues(J) then 
SOreNums (3) ¢:—= SortNums (a) + 1; 
Found := True; 
end if; 
end loop; 
if not Found then 
NumSorts := NumSorts + 1; 
SortValues(NumSorts) := T(I); 
SortNums (NumSorts) := 1; 
end if; 
end loop; 


-- Becomes Profile[9} 

-- Compute Profile[3]}, Number of Sort Groups of Size One. 
NumOneSorts := 0; 

for i an) i... NumSorts dcop 


if SortNums(I) = 1 then 
NumOneSorts := NumOneSorts + 1; 
end if; 
end loop; 
ResiltecCounte.— ResuttsCount + 1) 
Result (Result Count) := NumOneSorts; 


-- Becomes Profile[10..N] 

-- Compute Profile[4..N], Sequence of Sizes of the Sort Groups that 
-- Have Size Greater than One. 

for, 1 an 0... l=-2 loop 
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for) in 1. .NumSorts) loop 


if SortNums(J) = L-I then 
ResulLe Count o= hesulesCoune 1. 1, 
Result (Result y¢ount)) :— L-1; 
end if; 
end loop; 
end loop; 


-- Terminate the ArrayProfile 
Result (Result Count+l) := PROFILE TERMINATOR; 
return Result; 

end computeArrayProfile; 


procedure computeArrayProfileWithGenerics ( 
TT? in) Signature: 
ProfileValues: out ArrayProfiles; 
NumProfiles: out Natural) is 
I, G, J, K: Integer; 
L: SignatureLengthRange; 
NewSig: Signature; 
NumGenerics: Integer; 
NumDiffGenerics: Integer; 
Found: Boolean; 
Valj: Integer; 
GenericPos: array (SignatureLengthRange) of Integer; 
ProfileVal: ArrayProfile; 
begin 
NumGenerics 
NumProfiles 
Valj:=0; 
NumDiffGenerics := 0; 
G := 0; 
J := 0; 
K := 0; 


0; 
0; 


-- set L to number of elements in T 

I := 1; 

while (T(I) /= 0 and I <= MAX_SIG_LENGTH) loop 
iac= | & Is 

end loop; 

L <= 1 = 1; 


ror 1 ingl. loop 
if Tir) = 0 then 
if T(I) < NumDiffGenerics then 


NumDiffGenerics := T(I); 
end if; 
NumGenerics := NumGenerics + 1; 
GenericPos(NumGenerics) := I; 
end 2k 
end loop; 
NumDiffGenerics := -1 * NumDiffGenerics ; 
if NumGenerics = 0 then 
NumProfiles := 1; 
ProfileVal := computeArrayProfile(T); 
ProfileValues(1) := ProfileVal; 


else 
for G in 1..NumDiffGenerics loop 
for [ ini. .l, Leop 


NewSig(I) := T(I); 
end loop; 
NewSig(L+1) := 0; 


for o2in lil leop 
for I in 1..NumGenerics loop 
if T(GenericPos(I)) >= -1 * G then 
NewSig(GenericPos(I)) := T(J); 
end if; 
end loop; 


-- These following lines are good for debugging. 


-- They print out all the combinations of signatures computed 


Valj:= printSignature (NewSig) ; 
New_Line; 
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ProfileVal := computeArrayProfile (NewSig) ; 
if NumProfiles = 0 then 


NumProfiles := 1; 
ProfileValues(1l) := ProfileVal; 
else 
Found := False; 
for K in 1..NumProfiles loop 
if ProfileValues(K) = ProfileVal then 
Found := True; 
end if; 


end loop; 
if not Found then 


NumProfiles := NumProfiles + 1; 
ProfileValues(NumProfiles) := ProfileVal; 
end if; 
end if; 
end loop; 
end loop; 
end if; 


end computeArrayProfileWithGenerics; 


end profile calc; 


I. PROFILE_FILTER_PKG.ADS 


see cmc ce cme ere cr crm cr cr re cr cr ee ee ee ee ee ee ee ee ee = 


with haase_diagram; use haase diagram; 
with candidate types; use candidate types; 
With profile types; use profile types; 


package profile filter pkg is 


function findCandidates (query profile: in ComponentProfile; 
the _haase diagram: in HaaseDiagram) return CandidateSet; 


ends profile filtenupkg, 


J. PROFILE FILTER PKG.G 


cee ce ee ee ee mee ne ee eee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ise a ee 


ee er ee ce ce ee cr re cme ce ce we cw ree ec ec ce ee ee we we we we we we we we i ee ee 


with haase diagram; use haase diagram; 
with candidate types; use candidate types; 
with component_id_ types; use component_id types; 


package body profile filter pkg is 


-- Function: findCandidates 

-- Description: for each profile in query profile start at the base-node 
== that represents that profile and perform a depth-first 
== search on the haase-diagram. At each node calculate the 
= profile rank, create a Candidate with that rank and the 
-- components in that node, and add it to return_val. 


function findCandidates (query profile: in ComponentProfile; 
the _haase diagram: in HaaseDiagram) return CandidateSet is 
return val: CandidateSet; 
base_node: HaaseNode; 
base node_key: ComponentProfile; 
num matches: natural; 
Hee Mature lee 


procedure DFSFW(hn: in HaaseNode) is 
temp candidate: Candidate; 
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begin 
-- count the number of profiles in the node that 
-~ are also in the query 


num matches := 0; 
1 := 1; 
ees 


while i <= profile_id_ sequence _pkg.length(query profile) and 
j <= profile _id_ sequence pkg.length(hn.key) loop 
if profile id sequence pkg.fetch(query profile, i) = 
profile id sequence pkg.fetch(hn.key, j) then 


numemaeehes := num matches + 1; 
i fe aip ay 
jose + Ll; 


elsif profileIDLessThan (profile _id_sequence_pkg.fetch(query profile, i), 
profile id_sequence pkg.fetch(hn.key, j)) then 
1 eee Lee 
else 
jf2= 0 Fk 
end it, 
end loop; 


-- add the node's components to return val 
POLeach conpelcd-scomponentID), component id set pkg.scan, 
(hn.components), 
temp candidate := newCandidate; 
Eemp candidate profile rank += 
float(num matches) / float(profile id_sequence pkg.length(query profile) ); 
temp_candidate.component_id := comp_id; 
candidate set _pkg.add(temp candidate, return_val); 
) 


=~ recursively call DFSFW on each child 
foreach( (child: ComponentProfile), component_profile_set_pkg.scan, 
(hn. children) , 
DFSFW(haase_ node map _pkg.fetch(the_haase diagram, child)); 
) 
end DFSFW; 


begin 
return_val := candidate_set_pkg.empty; 
Foreach((p id: ProfilelD), profile id sequence pkg.scan, (query profile), 
baseenode ikeye:— profile id sequence pkg. empty; 
addProfileID(p id, base_node_key); 
if haase_ node map pkg.member (base node key, the_haase_ diagram) then 
base node := 
haase_ node map pkg.fetch(the_haase diagram, base _node_ key); 
DFSFW(base_ node); 
end if; 
) 


return BeLurch val; 
end findCandidates; 


end profile filter pkg; 


K. PROFILE _TYPES.ADS 


—— ee ee we ee me me ee ee es ee ee ee ee ee ee i ee ee ee ew ew Se ew wee eee 


with gnat.io; 

with generic sequence pkg; 
with generic set pkg; 

with ordered _map_pkg; 
package profile types is 


procedure myIntPut(i: integer); 
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-- Profile 


-- package int_sequence pkg is new generic_sequence_pkg( 
-- t => integer, average _size => 4); 
-- subtype Profile is int_sequence pkg.sequence; 


-- function profileEqual is new int_sequence_pkg.generic_equal(eq => "="); 

-- function profileLessThan is new int_sequence_pkg.generic_less_than("<" => "<"); 
-- procedure profilePut is new int_sequence pkg.generic put(put => gnat.io.put); 
-- procedure profileFilePut is new int sequence pkg.generic_put(put => myIntPut); 


Subtype Profile as long long anteger;: 


function profileEqual(pl, p2: Profile) return boolean; 
function profileLessThan(pl, p2: Profile) return boolean; 
procedure profilePut(p: Profile); 

procedure profileFilePut(p: Profile); 

procedure profileGet(p: in out Profile); 


~~ ProfileID 


—— 


subtype ProfileID is integer; 


function profileIDLessThan(pl, p2: ProfileID) return boolean; 
Peccedure prerilerDPuti(p id: ProfilerD)-; 

Peocedure profiletDrilePut (pyid:  ProtulelD); 

Beocedine sprortlelLlGet(peid: in eve ProrilelD) 7 


—_—— 


-- ProfileLookupTable 
DEFAULT PROFILE_ID: constant := -1; 
package profile lookup table pkg is new ordered_map_pkg( 
key => Profile, 
result => ProfilelID, 
eq key => profileEqual, 
eq res => t= ; 
"<" => profileLessThan) ; 
subtype ProfileLookupTable is profile lookup_table_pkg.map; 


procedure profileLookupTablePut is new profile lookup table pkg.generic_ put ( 
key put => profilePut, res put => profileIDPut); 


procedure profileLookupTableGet is new profile lookup_table pkg.generic_ input ( 
key input => profileGet, res_input => profileIDGet); 


procedure profileLookupTableFilePut is new profile lookup_table pkg.generic_file_ put( 
key put => profilePut, res_put => profileIDPut); 


—-- ComponentProfile 

-- Note: should use addProfileID to add a profile id to the ComponentProfile. 
aa addProfileID keeps the ComponentProfile sorted which is important 
-- for equality and subbag (multiset subset) testing. 


package profile id sequence pkg is new generic_sequence_ pkg ( 
t => ProfileID, average size => 4); 
subtype ComponentProfile is profile _id_sequence_pkg.sequence; 


function componentProfileEqual is 
new profile id sequence _pkg.generic_equal(eq => "="); 


function componentProfileMember is 
new profile id sequence _pkg.generic_member(eq => "="); 


procedure componentProfileRemove is 
new profile id sequence_pkg.generic_remove(eq => "="); 


function componentProfileSort is 
new profile id sequence pkg.generic_ sort("<" => "<"); 
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function componentProfileLessThan is 
hew profile id sequence pkg.generic less_than("<" => profileIDLessThan) ; 


procedure componentProfilePut is 
new profile id sequence _pkg.generic_put(put => profileIDPut) ; 


procedure componentProfileFilePut is 
new profile id sequence pkg.generic file put(put => profileIDFilePut); 


procedure componentProfileGet is 
new profile _id_ sequence _pkg.generic_input(input => profileIDGet); 


function subbag is 
new profile id sequence _pkg.generic_subsequence(eq => "="); 


package component_profile set_pkg is new generic _set_pkg( 
t => ComponentProfile, eq => componentProfileEqual, average_size => 8); 
subtype ComponentProfileSet is component_profile_set_pkg.set; 


procedure componentProfileSetPut is 
new component_profile set _pkg.generic_ put(put => componentProfilePut) ; 


procedure componentProfileSetGet is 
new component profile set _pkg.generic_ input(input => componentProfileGet); 


procedure addProriilciP(plid: in ProrilelD; cp: in out ComponentProtiie), 
procedure addProfiles(new profiles: in ComponentProfile; 
target: in out ComponentProfile); 


end profile types; 


L. PROFILE_TYPES.G 


sm cece mc ce cre cr re eee ese ee es we ee es es ce we we es oe ew ee ee we we we a asi as 


mec ww we we we ew wee ee ee ee ee we we we we ee we we we we we we ee ee wwe ee ee ee ee a a ee 


with text_io; 

with ada.long_long_integer text_io; 
with ada.integer text_io; 

with software base; 

with sb uUcits; 


package body profile types is 


package Int_IO is new Text_I0O.Integer_IO (Num => Integer); 


_——_ 


=- Procedure: myIntPut 
procedure myIntPut(i: integer) is 
begin 

ada.integer text_io.put(i, 0); 
end myIntPut; 


-~- Procedure: addProfileID 


-- Description: adds a ProfileID to a ComponentProfile by adding the 
=e ProfileID to the sequence then sorting the sequence. 


procedure addProfileID(p id: in ProfileID; cp: in out ComponentProfile) is 


begin 
profile id sequence pkg.add(p id, cp); 
cp := componentProfileSort (cp); 


end addProfileID; 


_——_ 


-- Procedure: addProfiles 


-- Description: appends the profiles from new_profiles to target then 
= SOLES target. 
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procedure addProfiles(new_profiles: in ComponentProfile; 
target: in out ComponentProfile) is 


begin 
target := profile id sequence pkg.append(target, new_profiles); 
target := componentProfileSort (target); 


end addProfiles; 


== Function: profileEqual 
function profileEqual(pl, p2: Profile) return boolean is 
begin 
return pl = p2; 
end profileEqual; 


—_— 


-- Function: profileLessThan 
function profileLessThan(pl, p2: Profile) return boolean is 
begin 
return pl < p2; 
end profileLessThan; 


== Function: profi lePut 

procedure profilePut(p: Profile) is 

begin 
ada.long_long_ integer text_io.put(p,0); 

end profilePut; 


-- Function: profileGet 
procedure profileGet(p: in out Profile) is 
begin 

aad. Ong longa integer cexte 1O,Geb pb), 
end profileGet; 


-- Function: profileFilePut 
procedure profileFilePut(p: Profile) is 
begin 
profilePut (p); 
end profileFilePut; 


— sa 


-- Function: profileIDLessThan 
function profileIDLessThan(pl, p2: ProfileID) return boolean is 
begin 
return software base.getProfile(pl) < software_base.getProfile(p2); 
end profileIDLessThan; ; 


— 


-- Procedure: profileIDPut 
Peoccaurc rors lel DPUt(p 1a: -ProrilerD) is 
begin 
ada.integer_text_io.put(p_id, 0); 
end profileIDPut; 


~- Procedure: profileIDGet 


Procedure prottlethGet(p ids in cue, Prorilei yp) 1s 
J: Integer; 


begin 
sb utils.IntGet(j); 
p ides); 


end profileIDGet; 


il 


== FUNGCELON: PrOLllelor Lerut 


procedure proftilelOrilerue(p id: ProfilelbDimas 
begin 

PEOLLLEIDPuc (pride 
end profileIDFilePut; 


—_— 


-- Function: createProfileLookupTable 


function createProfileLookupTable return ProfileLookupTable is 
begin 

return profile lookup _table pkg.create(0); 
end createProfileLookupTable; 


end profile types, 


M. PSDL_PROFILE.ADS 


== Package Spee: psditprotile 


-- This package contains functions and types that support the collection 
~- of operation profiles from a component specified in PSDL. 


WEEN CExXt (16, 


with generic_sequence_pkg; 
with generic _map_pkg; 
with generic_set_ pkg; 
with ordered set_pkg; 


with psd] concrete type pkg; use psdl_concrete type pkg; 
with psdl_component_pkg; use psdl_component_pkg; 


with profile types; use profile types; 
package psdlvprofile is 


-- Types 


=—=— OpWithProfile 


type OpWithProfile is record 
Op: Operator; 
Opeprofile: ProefileiD; 
end record; 


function opWithProfileEqual(owpl: in OpWithProfile; owp2: in OpWithProfile) 
return boolean; 


function opWithProfileLessThan(owpl: in OpWithProfile; owp2: in OpWithProfile) 
return boolean; 


procedure opWithProfilePut (owp: in OpWithProfile); 


-- OpWithProfileSeq 


-- Note: should use addOpWithProfile to add an OpWithProfile to the sequence. 
ee addOpWithProfile keeps the sequence sorted. 


package owp_sequence pkg is new generic sequence_pkg( 
t => OpWithProfile, average _size => 4); 
subtype OpWithProfileSeq is owp_sequence_pkg.sequence; 


function opWithProfileSeqEqual is 
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new Owp_sequence pkg.generic_equal(eq => opWithProfileEqual) ; 


function opWithProfileSeqMember is 
new Owp_ sequence pkg.generic member(eq => opWithProfileEqual) ; 


procedure opWithProfileSeqRemove is 
new owp_sequence pkg.generic_remove(eq => opWithProfileEqual); 


function opWithProfileSeqSort is 
new owp_sequence_ pkg.generic_sort("<" => opWithProfileLessThan) ; 


procedure opWithProfileSeqPut is 
new owp_sequence pkg.generic put (put => opWithProfilePut); 


procedure opWithProfileSeqPrint(owp_seq: in OpWithProfileSeq); 


procedure addOpwWithProfile(owp: in OpWithProfile; 
Owp_Seq: in out OpWithProfileseq); 


-~ OpWithProfileSet 

package owp_set_pkg is new ordered_set_pkg( 
t => OpWithProfile, eq => opWithProfileEqual, 
"<" => opWithProfileLessThan) ; 

Subtype OpWithProfileSet is owp_set_pkg.set; 


procedure opWithProfileSetPut is 
new owp_set_pkg.generic_put(put => opWithProfilePut) ; 


procedure opWithProfileSetPrint(owp_set: in OpWithProfileSet) ; 


_—— 


-- GenericsMap 


-- Description: this is a mapping of generic type identifiers to 
-- actual types that exist in the component. For example, if the 
-- PSDL type Stack has one generic type named Item and has methods 
-- that have parameters that use the types natural, Stack, and 

-- boolean then there would be four different instantiations of 

-- Stack in the software base representing the four possible 

-~- Mappings for Item: 1. Item => natural, 2. Item => Stack, 

-- 3. Item => boolean, 4. Item => Item. Option 4 really just 

-- means that Item is mapped to a type that does not appear in the 
-- component. Suppose Stack used two generic types. In that case 
-- each instantiation's GenericsMap would have two entries, one 

-- for each generic type. In such a case the number of different 
-~- instantiations present in the software base grows rapidly; 

-- specifically the number would be the cross product of the number 
-- of types across each generic type. 


package generics map_pkg is new generic map pkg( 
key => psdl _ id, 
Besults=- Peder, 
eq key => eq, 
eq res => ¢€q, 
average size => 8); 
subtype GenericsMap is generics _map_pkg.map; 


procedure psdl adPut(the id: in psd id) ; 
procedure psdl_idGet(the id: in out psdl id); 


procedure genericsMapPut is new generics_map_pkg.generic_put ( 
key put =-3psdlvidPut,) ses put —= psdl idPut); 


procedure genericsMapGet is new generics map_pkg.generic_input ( 
key input => psdl_idGet, res_input => psdl_idGet); 


-- GenericsMapSet 


package generics _map_set_pkg is new generic _set_pkg( 
t => GenericsMap, eq => generics map pkg.equal) ; 


lS 


subtype GenericsMapSet is generics _map_set_pkg.set; 


procedure genericsMapSetPut is 
new generics map set_pkg.generic_ put(put => genericsMapPut) ; 


-- Functions 


function getGenericsMaps(filename: in string) 


return GenericsMapSet; 


function getComponentProfile(filename: in string; 
generics mapping: in GenericsMap) return Component Profile; 


function getOpsWithProfiles(filename: in string; 
generics mapping: in GenericsMap) return OpWithProfileSeq; 


function getOpsWithProfiles(filename: in string; 
generics mapping: in GenericsMap) return OpWithProfileSet; 


end psdl profile; 


N. PSDL_PROFILE.G 


with 
with 
with 
with 


with 
with 


with 
with 
with 
with 
with 
with 
with 


with 
with 


a_ strings; 
Ssbloutils; 
text_pkg; 
text_io; use text io; 


profile types; use profile types; 
Prom Leeeate, suse profile calc; 


psdllio; 

psdl_ concrete type pkg; use psdl_concrete_ type pkg; 
psdl_component_ pkg; use psdl_component_pkg; 

psdl_ program _pkg; use psdl_program_pkg; 
psdl_id_set_subtype_ pkg; 

psdl_id pkg; 

software_base; 


generic map pkg; 
generic sequence pkg; 


package body psdl_ profile is 


package signature_seq pkg is new generic_sequence pkg( 


t => Signature, average _size => 2); 


subtype SignatureSequence is signature_seq pkg.sequence; 


-- Function: opWithProfileEqual 


function opWithProfileEqual(owpl: in OpWithProfile; owp2: in OpWithProfile) 


return boolean is 


begin 


=-- if not profileEqual (owpl.op profile, owp2.op_profile) then 
if owpl.op_ profile /= owp2.op_profile then 
return false; 
end if; 
return eq(owpl.op, owp2.op); 


end opWithProfileEqual; 


-_ 


-- Function: opWithProfileLessThan 


function opWithProfileLessThan(owpl: in OpWithProfile; 


Owp2: in OpWithProfile) 
return boolean is 


begin 


-- return profileLessThan(owpl.op profile, owp2.op_ profile); 


154 


return profileLessThan (software _base.getProfile(owpl.op profile), 
software base.getProfile(owp2.op profile) ); 
end opWithProfileLessThan; 


-- Function: opWithProfilePut 


procedure opWithProfilePut(owp: in OpWithProfile) is 


begin 
pune (hc 
put (Convert (name (owp.op))); 
Pub: eS 


foreach @ithe 1d: podliad; the tn: type name), 
Eype declaration pkg.scan, (inputs (owp-op)), 
Put (convert (the tn-name)); 
puUEC” Mays 
) 
; put ("=> Jaye 
foreach( (Enemies psdlerd; the tn: type name), 
type declaration pkg.scan, (outputs(owp.op)), 
put (Convert (the_tn.name) ); 


jeqelic (4 Wis 
) 
bua | ve 
profilePut (software base.getProfile(owp.op profile) ); 
poe Ge) 


end opWithProfilePut; 


-- Function: opWithProfileSegPrint 
procedure opWithProfileSeqPrint (owp_seq: in OpWithProfileSeq) is 
begin 
foreach((owp: OpWithProfile), owp_sequence_pkg.scan, (owp_seq), 
put (convert (name (owp.op) )); 
put’: vee 
foreach((the_id: psdl_id; the_tn: type_name), 
type declaration_pkg.scan, (inputs(owp.op)), 
put (convere (Ene En name), 
put” Ms 
) 
put ("-> 1 
foreach{ (the id: psdl ad; the tn: type name), 
type _declaration_pkg.scan, (outputs (owp.op)), 
put (Convert (the tn.name)); 


puts wee 
) 
put (” de 
profilePut (software base.getProfile(owp.op_profile)); 
new_line; 


) 
end opWithProfileSeqPrint; 


-- Function: opWithProfileSetPrint 
procedure opWithProfileSetPrint (owp_ set: in OpWithProfileSet) is 
begin 
foreach((owp: OpWithProfile), owp_set_pkg.scan, (owp_set), 
put (convert (name (owp.op) )); 
puck. ") ; 
foreach((the id: psdl_id; the tn: type _name), 
type_declaration_pkg.scan, (inputs(owp.op)), 
Putt ecenvert (the Gnename) ) -; 
putt” a“ ; 


put ("-> ys 
foreach ( (the 1d: psdivid, the tn ctype name), 
type declaration pkg.scan, (outputs(owp.op)), 
put (convert (the_tn.name) ); 
| pute” ye 
new_line; 
profilePut (software _base.getProfile(owp.op profile)); 
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new_line; 
) 
end opWithProfileSetPrint; 


-- Function: addOpWithProfile 

procedure addOpWithProfile(owp: in OpWithProfile; 
owp seq: in out OpWithProfileSeq) is 

begin 
Oowp_ Sequence pkg.add(owp, owp seq); 
owp seq := opWithProfileSeqSort(owp_seq) ; 

end addOpwithProfile; 


-- Function: createNumericSignatures 
-- Description: helper function to create numeric signatures for 
=e aly Operator. 
function createNumericSignatures(op: in operator; 
generics mapping: GenericsMap; type_id: psdl_id) 
return SignatureSequence is 


package type map pkg is 
new generic map pkg( 
key => type name, 
result => integer, 
eq key => equal, 
eq resi=- ‘=_, 
average size => 2); 
subtype type_map is type_map_pkg.map; 


-- if a type from the same sort group is already in the map 
~- then return the number that represents that sort group 
-- otherwise return 0, indicating this a type from a new 
== IS Ort Cisotlp 
function getSortGroupNum(the_ type: type_name; 
the _type map: type map) return integer is 
return_val: integer; 
begin 
returmeaval <= 0; 
foreach((the_tn: type name; the_num: integer), 
type_map_pkg.scan, (the_type_map), 
if same_sort_group(the_type, the_tn) then 
return val := the_nun; 
-- TODO: should be exit loop here but don't know how to 
end if; 
) 
ECEUENMreLUrT val, 
end getSortGroupNum; 


the_inputs: type _declaration := inputs(op); 
LHe FOuEpuES: @tyoe declaration != Outputs (ep); 
the styee imap: ype map, 

i ceo neural, 

sort_group_num: integer; 

gen set" pedi id set usubtype pkg) psdiy 1d ser 
temp Signature: Signature; 

CEMp_ th: type name; 

Feturneval: signatureSequence, 

type: Occurrence Count<enauural, 

Deol count, char ceunt, String Count, intwcount, Tloat count: Natural, 


procedure update_additional_counts(the_tn: type_name) is 


begin 
if eq(temp_tn.name, type _id) then 
type_occurrence count := type_occurrence_count + 1; 
elsif Same sort \oroup (the tn, bocléan) type) mums 
bool count := bool_count + 1; 
elsif "same usort Group(the en, character cype) then 
shar -count = charegcoune +1 


elsif same_sort_group(the_tn, String type) s taen 
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SEriIngecount -= stringscount + 17 
elsif same_sort_group(the_tn, integer type) then 
INnewCoOUntE:— int count + 1; 
elsif “same Sort group(the tn, float_type) then 
Eleat count s— float count + 1; 
end if; 
end; 


begin 
type map pkg.create(0, the type map); 


=— for Gach OuEpuL 
foreach((o_id: psdl_id; o_tn: type name), 
type declaration pkg.scan;e (the outputs), 
Eype map pkg. neeyele(the type map) ; 
a — . 


é 


1 3= 0; 

Eype OccuErence count :— 0; 
bool count := 0; 

chan count <= 0; 
string_count := 0; 
intscount <= 0; 

float_count := 0; 


== bor each Thole 
Eoneach( istic: psdlyid- ietn: type name); 
type cdeclaracton pkg.scan, (thesinpues), 


-- check if type is a generic type or a regular type 
if generics map _pkg.member(i_tn.name, generics_mapping) then 
temp_tn += create ( 
generics map pkg.fetch(generics mapping, i_tn.name), 
psdl_id_sequence pkg.empty, 
type declaration pkg.create(null type) ); 
else 
So GCOUlLG probably Use llth assis rather than Create 
-~ a copy but we're being safe in case i_tn has some 
-- residue in its formals and gen_pars 
Cemp tn’ <= create (itn name, 
psdl 1d Sequence pkg empty, 
type cdéeclararionipKkg.create (null type) ), 
end if; 


update_additional_counts(temp_tn); 


-~- if the type isn't in the map yet then put it in 
if not type _map pkg.member(temp_tn, the_type_map) then 


sort_group num := getSortGroupNum(temp tn, the type map); 
if sort_group_num = 0 then 
tS Jee 
type map pkg.bind(temp tn, t, the_type map); 
end: ie; 
end if; 


-- add the input's sort group number 

ok Ls 

temp _signature(i) := getSortGroupNum(temp_tn, the_type map); 
) 


== handle the output 


-- check if type is a generic type or a regular type 
if generics map_pkg.member(o_tn.name, generics mapping) then 
temp_tn := create ( 
generics map pkg.fetch(generics mapping, o_tn.name), 
psdl_id_sequence_pkg-.empty, 
type declaracion pkgq.create (nullyeype)); 
else 
~= Could probably use o tn as is rather than create 
~- a copy but we're being safe in case o_tn has some 
~- residue in its formals and gen_pars 
temp_tn := create(o tn.name, 
psdl_id_sequence_pkg.empty, 
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type declaration pkg.create (null type) ); 
end if; 


update additional counts(temp_tn); 


-- if the type isn't in the map yet then put it in 
if not type map _pkg.member(temp_tn, the_type map) then 


sort_group_num := getSortGroupNum(temp_tn, the _type map); 
if sort_group_num = 0 then 
eee es 
type_map pkg.bind(temp_tn, t, the type map); 
end if; 
end if; 


-- add the output's sort group number 
a = es 


temp _signature(i) := getSortGroupNum(temp tn, the type map); 
-- mark end of signature 

i 3:= 2 + 1; 

temp Signature(i) := 0; 


-= dddecilemeype occurrence count to Che signature 
1 := i + 1; 
temp signature(i) := type occurrence count; 


-- add basic type counts in 
1 ee eee 


temp signature(i) := bool count; 
Tet ly 

temp_signature(i) := char _count; 

i = i ae 

temp_signature(i) := string_count; 
1 = 1 tee 

Lemp Signature (i) == int count, 
i= eel; 

temp _sSignature(i) := float_count; 
ios 1a ee 


temp_signature (i) 0; 
-- add the signature to the sequence of signatures 
Signature seq pkg.add(temp_ signature, return_val); 


) 


Teturn Lrecurn val, 
end createNumericSignatures; 


-- Function: getOperatorProfiles 


-- Description: helper function to collect the profiles for 

a an operator. A ComponentProfile (sequence of 
= profiles) is used because if an operator has 
ao more than one output it is treated as if there 
oe is a separate operator for each output. 


function getOperatorProfiles(op: operator; 
generics mapping: in GenericsMap; type_id: psdl_id) 
return ComponentProfile is 


return_val: ComponentProfile; 
numeric sigs: SignatureSequence; 


begin 
-- convert the operator's signature to numeric signatures 
== (see the comments in the specification ofeprorilercatc) 
numeric sigs := createNumericSignatures(op, generics_mapping, type id); 


-- compute the profile for each signature 

foreach((sig: Signature), signature _seq pkg.scan, (numeric_sigs), 
addProfileID(software_base.getProfileID(computeProfile(sig)), 
LetLuUrne val): 
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) 


recurn return val. 
end getOperatorProfiles; 


-- Function: getComponentProfile 

-- Description: this function will return the ComponentProfile 
aa for a component specified in PSDL in the PSDL 
aes file filename. 


function getComponentProfile(filename: in string; 
Generics Mapping: in GenericsMap) returneGomponentProfile is 


Che mtale: Ee lype, 
the preg: psdl program; 
return_val: ComponentProfile; 


begin 
== parse the psdl tile to ¢reatema psdl progaam 
open(the_file, IN_FILE, filename) ; 
assign(the_ prog, psdl_program_pkg.empty_psdl_program) ; 
psdl_io.get(the_file, the_prog); 
elese (Enemrrls): 


-- if the program contains more than one component 

-- then just get the first one since the program 

-- is only supposed to have one (a requirement of 

-- this implementation) 

foreseen d = psdlerd- se:apsdl component), 
psdl_program_map_pkg.scan, (the prog), 


-~- if the component is a single operator then just 
-- get the profile for that operator 
if component_category(c) = psdl_ operator then 
addProfiles(getOperatorProfiles(c, generics mapping, empty), 
return val); 


~- otherwise the component is a type so get the profiles 
-- for each of its operators 
else 
foreach((id: psdliid; o: operator) , 
operation map pkg.scan, (operations(c)), 


addProfiles(getOperatorProfiles(o, generics mapping, 
psdl id pkg.Upper To Lower(c_id)), return_val); 
) 


end if: 


-- TODO: need to break out of this loop so that only the 
== first component is processed. 


) 


return return val; 
end getComponentProfile; 


=— Function: Splitop 

-- Description: helper function to split an operator with more 

= than one output into a sequence of operators 

== where each operator has one of the outputs. 

= When splitting, instances of the operator's generic 
== types in the inputs and the outpus are converted to 
= their mapped types according to the generics mapping. 
=> Bach split operator's profile is then calculated. 


function splitOp(op: operator; generics mapping: in GenericsMap; 


Ey Pe id: (psdliiad)) 
return OpWithProfileSeq is 
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return_val: OpWithProfileSeq; 
temp _owp: OpWithProfile; 
temp_output_name: psdl id; 

temp _output_type: type name; 
numeric sigs: SignatureSequence; 


begin 
—- FOr Gach output 
foreach((o_id: psdl_id; o tn: type name), 
type declaration pkg.scan, (outputs (op), 


=- Make a CoOpy.ef op but with only the current output 
temp_owp.op := make _atomic_operator ( 

psdl name => name(op), 

ada_name => ada _name(op), 

gen_par => generic parameters(op), 

keywords => keywords(op), 

axioms => axioms(op), 

State => states(op)); 


-- add the inputs 
foreach (tid: psdl id; iain) type name), 
type declaration pkg.scan, (inputs(op)), 
if generics_map pkg.member(i_tn.name, generics mapping) then 
add_input(i_id, create( 
Generics map pkg. feten(generves mapping, a tn name), 
psdl_ id sequence pkg.empty, 
type _declaration_pkg.create(null type)), 
temp owp.op); 
else 
add_input(i_id, 1i_tn, temp _owp.op); 
end if; 


) 


=~ add the output 
if generics map _pkg.member(o tn.name, generics_mapping) then 
dddvowtput(o id, ecredte( 
generics map pkg.fetch(generics_mapping, o _tn.name), 
psdl_id_ sequence pkg.empty, 
type declaration pkg.create (null type)), 
temp owp.op); 
else 
add _output(o id, o tn, temp owp.op); 
end if; 


-- Convert the new operator's signature to numeric signatures 
-- (see the comments in the specification of profile calc). 
-- Note the call to createNumericSignatures can now just pass 
-- an empty GenericsMap since the generics were mapped to actual 
-- types in the above code. 
numerie sigs := 
CreateNumericSignatures (temp owp.op, 
generics map pkg.create(empty), type id); 


-- compute the new operator's profile 
temp_owp.op profile := software base.getProfileID(computeProfile ( 
Signature _seq pkg.fetch(numeric sigs, 1))); 


~~ add the new operator-with-profile to return val 
addOpWithProfile(temp owp, return_val); 
) 


Peturn return val, 
end splitOp; 


-- Function: getOpsWithProfiles 


-- Description: constructs a sequence of OpWithProfiles (a PSDL operator 
a and its corresponding profile) representing the operators 
-- in the PSDL component specified in filename. 


function getOpsWithProfiles (filename: in string; 
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generics mapping: in GenericsMap) return OpWithProfileSeq is 


the file: file type; 
the prog: psdl program; 
return_val, foo: OpWithProfileSeq := owp_sequence_pkg.empty; 


begin 
== parse the psdil file tovercate ay psd) program 
open(the file, IN FILE, filename); 
assign(the_ prog, psdl_ program_pkg.empty_psdl program); 
psdl_io.get(the file, the prog); 
close the file); 


-- if the program contains more than one component 
-- then just get the first one since the program 
-- is only supposed to have one (a requirement of 
-- this implementation). Generic maps need a method 
-- that allows the user to fetch a single mapping 
=— aoe ene map. 
fOreden ((e™rd:) psdliid; ves psdl component), 
psdl_ program _ map pkg.scan, (the prog), 


-- if the component is a single operator then just 
-- get that operator 
if component_category(c) = psdl_operator then 
foreach((owp: OpWithProfile), owp_sequence_pkg.scan, 
(splitep(e, generics mapoing, empty), 
addOpWithProfile(owp, return_val); 
) 


-- otherwise the component is a type so get 
-- each of its operators 
else 
foreach((id: psdl_id; 0: operator), 
operation map pkg.scan, (operations (c)), 


foreach( (owp: OpWithProfile), owp_sequence_ pkg.scan, 
(splitOp(o, generics_mapping, 
psdl id pkg Upper to Lower(e uid) )), 
addOpWithProfile(owp, return_val); 


-- in the above statement we 

-- temporally pass the generic parameters for the whole 
-- type, c. Should really just pass the generic 

-- parameters for the operation, o, only. This will 

-- happen when generics get reworked. 


end if; 


-- TODO: need to break out of this loop so that only the 
oe first component is processed. 
) 


return —retura val; 
end getOpsWithProfiles; 


-- Function: getOpsWithProfiles 

-- Description: constructs a set of OpWithProfiles (a PSDL operator 

ae and its corresponding profile) representing the operators 
== in the PSDL component specified in filename. 


function getOpsWithProfiles (filename: in string; 
generics mapping: in GenericsMap) return OpWithProfileSet is 


the_file: file type; 
the prog: psdl program; 
return_val: OpWithProfileSet; 


begin 
-- parse the psdl file to create a psdl program 
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open (the file; einer iui Wbename) 7 

assign(the prog, psdl program _pkg.empty psdl program) ; 
psdl_io.get(the file, the prog); 

close(the file); 


~~ if the program contains more than one component 

-- then just get the first one since the program 

-- is only supposed to have one (a requirement of 

-- this implementation). Generic maps need a method 

-- that allows the user to fetch a single mapping 

== in) the Map 

foreach |((c ids psdlwid, ce: psdl component), 
psdl_program_map pkg.scan, (the prog), 


-- if the component is a single operator then just 
-~- get that operator 
if component_category(c) = psdl_operator then 
foreach((owp: OpWithProfile), owp_sequence pkg.scan, 
(splitOp(c, generics mapping, empty)), 
owp_set_pkg.add(owp, return_val); 
) 


-- otherwise the component is a type so get 
-- each of its operators 
else 
foreach ides psdleid eo seperatcr): 
operation map pkg.scan, (operations(c)), 


foreach((owp: OpWithProfile), owp_ sequence _pkg.scan, 
(splitOp(o, generics mapping, 
psdl_id pkg-Upper To Lower(c i1d))), 
owp_set_ pkg.add(owp, return_val); 


-~- in the above statement we 
-- temporally pass the generic parameters for the whole 
-~- type, c. Should really just pass the generic 
-~- parameters for the operation, o, only. This will 
-- happen when generics get reworked. 
) 
end 1 £7 


-- TODO: need to break out of this loop so that only the 
lcs first component is processed. 
) 


return return, val; 
end getOpsWithProfiles; 


-- Procedure: psdl idPut 
procedure psdlviGrur(the 1d: im psdlvidjei- 
begin 
PUuE(cConvert( thesia) 7, 
end psdl vdPut; 


=- Procedure: psdl idGet 
procedure psd) yideer(the id. s12 out psdigid eis 
LO sburier: St mingle 256); 
last: integer; 
begin 
sb utile get char wordute route = last). 
the 1d := psdl idta Strings. to 4 (lOsgburtert! (last): 
end psdl_idGet; 


-- Function: getGenericsMap 

-~ Description: generates all the possible mappings of generic types 
== to actual types for all the generic parameters in 

a the component specified in the PSDL file, filename. 
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-- See description of GenericsMap in psdl profile.ads. 

-- This is done by collecting all the types used in the 

== operatations of the component (note we are only processing 
aoa type components, not operator components) into a set 

Se and then performing the cross-product of this set with 

== the set of generic parameters. 


function getGenericsMaps (filename: in string) return GenericsMapSet is 


the file: file type; 

the prog: psdl_program; 
return_val: GenericsMapSet; 
Getwoen: psd 1dysee, 
Eypeusce-  podlerd sec, 
temp_map: GenericsMap; 


PrOcedlire Cross product(g set, t set: psdliid set; gens map: GenericsMap) is 
ECNpeset. psdleyld set; 


Ge psdlsid, 
local _ map: GenericsMap; 
begin 


generics map_pkg.assign(local_map, gens_map); 
if psdl_id Set pkg.size(g set) > 0 then 
psdl_id_set_pkg.assign(temp_set, g_set); 
G:= psdaleiamectepkg choose (g Set); 
foreach((the_ type id: psdl_id), psdl_id_set_pkg.scan, (t_set), 
generics map pkg.bind(g, the_type_ id, local_map); 
psdl_id set pkg.remove(g, temp_set); 
cross_product(temp_set, t_set, local_map); 
generics map pkg.assign(local_map, gens_map); 
) 
generics map pkg.recycle(temp_map) ; 
else 
generics map_set_pkg.add(local_map, return_val); 
end if; 
end cross product; 


begin 
return_val := generics map_set_pkg.empty; 


-- parse the psdl file to create a psdl program 
open(the file, IN_FILE, filename) ; 

assign(the prog, psdl program pkg.empty_psdl_ program); 
psdl_io.get(the file, the_prog); 

close (the_file); 


-- if the program contains more than one component 

-- then just get the first one since the program 

-- is only supposed to have one (a requirement of 

-- this implementation). Generic maps need a method 

-- that allows the user to fetch a single mapping 

== in the map. 

foreach ((c ad: psdl id; c: psdl component), josdl program Map pkg-scan, 
(the prog), 


-- collect the names of the generic parameters 
EOUCAaGCH( (the id: psdivid; the tn. typeuname), 
by pendecelarakvon preg.cean, s\gencrre eakalcners (Cc), 
if eq(psdl_id_ pkg.Upper_To Lower (the_tn.name), 
convert ("private type”)) then 
psdl_id_set_pkg.add(psdl_id pkg.Upper To_Lower(the_id), 
Gen set); 
end if; 
) 


-- collect the types used in all the operators 
if component_category(c) = psdl_type then 
foreach ((o id: psdli id; 0: eperator), 
operation_map_pkg.scan, (operations(c)), 


== nO iS 
Eoreach((iherid: psdlirvd; thestn. type mame), 
type declaration pkg.scan, (inputs(o)), 
psdl_id_set_pkg.add( 
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psdl_id_pkg.Upper To Lower(the tn.name), type set); 
) 
©= CUEBUES 
foreach((the_id: psdl_id; the_tn: type name), 
type declaration pkg.scan,..(Outputs (6), 
Psdividusctapkg-adday 
psdl_id_pkg.Upper To _Lower(the_tn.name), type_set); 


) 
end if; 


-- TODO: need to break out of this loop so that only the 
== first component is processed. 


) 


generics map pkg.create(empty, temp_map); 
cross product (gen_set, type set, temp map); 


return return val; 
end getGenericsMaps; 


end psdl_profile; 


O. SIG_MATCH.ADS 


with psdl_ profile; use psdl profile; 
with sig match_types; use sig _match_types; 


package sig _ match is 


procedure match_ops(query, candidate: in OpWithProfileSeq; 
root_sn: in out SigMatchNode) ; 


procedure sigMatchStatsReset; 
procedure sigMatchStatsPut (filename: string); 


end sig_match; 


P. SIG MATCH.G 


—_ en mc ce ee we a i i ee Ce ewe er ewe ee ew ew ew ew eee ee ewe ee 


me ce ce ee ec ee we ee ee ee ee re ee ie a ee ee ee eT ee ee 


With ext 10j;use text 10; 


with psdl_concrete type pkg; use psdl_concrete_type_ pkg; 
with psdl_component_pkg; use psdl_component_pkg; 


with profile types; use profile types; 
with psdl_ profile; use psdl_ profile; 
with sig_match_types; use sig _match_types; 


package body sig_match is 


farled GutpuEsS: natural 7= 0; 
passed outputs: natural := 0; 
falled basics: Natural <= 0; 
passed basics: natural := 0; 
duplicates: natural := 0; 
total inputs: matural == 0; 
failed inputs: natural := 0; 


=- FUNGEIOnN. Get basics 


-- Description: removes any user-defined types from the inputs argument, 
=< thereby returning a type declaration with predefined 
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=< types only. 
function get basics(inputs: in type declaration) return type declaration is 
return_val: type declaration; 
begin 
type_declaration_pkg.assign(return_ val, inputs); 
foreach((the_id: psdl_id; the_tn: type name), type _declaration_pkg.scan, 
(inputs), 
if not is_predefined(the tn) then 
type_declaration_pkg.remove(the_id, return_val); 
endif; 
) 
FELUrN Teturne val, 
end get_basics; 


=— Function. -qet userudetined 


-- Description: removes any predefined types from the inputs argument, 
== thereby returning a type declaration with user-defined 
== types only. 


function get_user defined(inputs: in type declaration) 
return type declaration is 
return val: type declaration; 
begin 
type declaration _pkg.assign(return_val, inputs); 
boréachitthe ld: psd) id; the tn: type name); type declaraulon pkg.scan, 
inputs), 
if is_predefined(the_tn) then 
type declaration pkg.remove(the_id, return_val); 
end if; 
) 
return return val; 
end get_user_ defined; 


-- Function: match basics 

-- Description: determines if the query's basic input types can match the 
ace candidate's basic input types given the following rule: 
== Basic types: either they must match exactly or the 

es query's input type must be a subtype of the component's 
ae input type. 


function match_basics(q_ basics, c basics: in type declaration) 
return boolean is 
the_q_ basics: type declaration; 
the_c basics: type declaration; 
new _q basics: type declaration; 
new_c_ basics: type declaration; 
found_match, found_c2, return_val: boolean; 
begin 
type_declaration_pkg.assign(new_q basics, q_basics); 
type _declaration_pkg.assign(new_c_ basics, c_basics); 


-- cannot match if query has different number of basics then 
-- the candidate 
if type_declaration_pkg.size(q basics) /= 
type declarationmpkgq size (c basics) Seen 
return false; 
end if; 


== filter out the basics that match exactly 
type_declaration_pkg.assign(the_c basics, new_c basics); 
foreach((q_id: psdl_id; q_tn: type name), type_declaration_pkg.scan, 
(q basics), 
found_match := false; 
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foreach((c_ id: psdl id; Cc tn: type name), type sdeclarationupke .cean, 
(NEW Re eDasi1 Cs); 
if not found_match then 
if équal (amen, Cc tn) then 
type _declaration_pkg.remove(q id, new_q basics); 
type declaration _pkg.remove(c_id, the _c basics) ; 
found mateh ;= tEue; 
end if; 
end if; 
-- TODO: would rather break out of the inner for loop when a 
a Match is found rather than do this found match stuff. 
) 


type_declaration_pkg.assign(new_c_basics, the_c_ basics); 


-- Filter out the remaining basics that can match to supertypes. 

-- This is done by temporally mapping each query input type to a 

-- supertype in the candidate that is closest in the partial ordering 
==. Of basic Eypes- 


type _declaration_pkg.assign(the_q basics, new_q basics); 
foreach((q id: psdl ad; q tn: type name), type declaration pkg 2scan, 
(Ene oq. bastes), 
found_match := false; 
type_declaration_pkg.assign(the_c_ basics, new_c_ basics); 
foreach ( (amid: spsdl id; c_ tn: type name), type declarationtpka. scan, 
(Gheve basics), 
if not found_match then 
Tivsubtyper of(q_ tn, c_tn) then 
foundte2 := false; 
Boreach((c2 1d: psdigid; c2 tn: type mame), 
type declaration_pkg.scan, (the_c_basics), 
tie not, found. G2 then 
Lf mot equal (Cltu,) 62 tn) sehen 
if subtype To£(G En, C2 En) and 
Subtype of(e2 tn, ¢€ tm) then 
EOuUnGg GZ) {= -Eruc, 
end if; 
end if; 
Suan, 
) 
tf not found c2 then 
type_declaration_pkg.remove(q_id, new_q_ basics); 
type declaration _pkg.remove(c_id, new_c_basics); 
Eound Maeeh =: = Erue, 
ence f, 
end if; 
end if; 


-- if there are any basics left over than match is not possible since 
-- basics cannot be matched to non-basics 


return_val := type _declaration_pkg.size(new_q basics) = 0; 


-- recycle local variables 

type declaration pkg. recyele (new q basics); 
typenceclaration pwko.recycle (new ¢ basics), 
type _declaration_pkg.recycle(the_q basics); 
type _declaration_pkg.recycle(the_c_ basics); 


return return val; 


end match_basics; 


Procedure: "match outputs 


Description: This function serves two purposes: 1. to determine if 
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== the outputs of the matched operations can match, and 
a 2. if they can match, add the type mappings to sn.V.TM. 


proceduré Match cutputs (sn; 1n Oue SigMatechNode, Success: out boolean) is 
q_output_type, c_output_type: type name; 
begin 
SUCCESS (i =sehuc, 
foreach ((q Op: “Operater;, ¢ Op: Operatcer), Op Map pkg.Scan, (sn.V.OM), 
if success then 
=- Q&G)Gg op s One-=and-only output type 
q OUEPUET type := type declaration pkq.res set pkg.choose ( 
type_declaration_pkg.map_range (outputs (q_op))); 
== Getec lop S oné-and-only output, Eype 
c output _ type := type declaration _pkg.res set_pkg.choose ( 
type declaration pkg.map range (outputs (c op))):; 


Ji iS) prede fned(q  GurpUE  eype) sor 
iis predefined(c output type) then 
iE WMOt Subtype OoL(cC OCULPUL Uype, sd outpUretype) then 
success := false; 
end if; 
elsif type map pkg.member(q output_type, sn.V.TM) then 
if not equal(c_output_type, 
EVpe Mapepkg. tetehn(sn.V- IM, qecutpuc type) )) then 


success := false; 
end if; 
else 
Eype Map pko.band(q output _Eype, CG _OUTpUE _UCype, Ssn.V.1M); 
end if; 
end if; 


) 
end match_outputs; 


== Procedure: match. inputs 


—— 


=— Description: 


procedure match_inputs(root_sn: in out SigMatchNode; success: out boolean) is 


procedure match(q inputs, c_inputs: in type declaration; 
root_sn: in out SigMatchNode; success: out boolean) is 
new_q_ inputs, new_c_inputs: type declaration; 
temp_q_inputs, temp_c_inputs: type _declaration; 
ci: type name; 
temp_sn: SigMatchNodePtr; 
Eemp 1d: psdly id; 
found_temp_id: boolean; 
got first qi: boelean, 
return_val: SigMatchNode; 
begin 
return_val := createSigMatchNode; 
SigMatchNodeAssign (return val, root_sn); 


type_declaration_pkg.assign(new_q inputs, q_inputs); © 
type declaration pkg.assign(new _c inputs, ¢€ inputs); 
success := true; 
foreach((q_id: psdl_id; qi: type name), 
Lypeudeelarationupkg scan, (qd Inputs), 
if success then 
if type_map_pkg.member(qi, root_sn.V.TM) then 
Gl): — type mapepkg. fereh (Looe sn. V2mM,96q1);; 
-- if the current query input type is already mapped 
-- then make sure it is mapped to an existing type in 
-~- the candidate's inputs. Note to test this we must 
== look at the type sdeclaratton's range (the types) 
ea NOE TEE Sedona (ene posal, tds). 
Peery Peudecldndtlonspkdg- res eseteekg«Memsen cl, 
type declagation pkg-Map rangée(c inpucs)) then 
Success := false; 
else 
=— fLemove qi ‘From lew q inputs 
Eype ‘declaration pkg.remove(q 1d; new q Inputs) ; 
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SaeLemove Ci from new Cc inputs 
found_temp_id := false; 
if not found _temp_id then 
foreach((c_id: psdl_id; c_tn: type name), 
type declaration pkg -seanwa(new ¢ inputs), 
EE equal(ci, € tn) chen 
temp id := c id; 
found temp id := true; 
-- TODO: would rather break out of for loop. 
end if; 
) 
end if; 
if found_temp_id then 
type _declaration_pkg.remove(temp_id, new_c_inputs); 
else 
-- if this else block gets called 
-- there is something wrong 
put_line("there is something wrong"); 
success := false; 
end if; 
end if; 
end if; 
enc i, 
) 
if success then 
waeGOUmrITSt gd’ 5 a Cheesy way of only getting ythe finest 
-- element out of the map. Maps need a way of fetching by 
-- i'th element. 
got_first_ qi := false; 
Foreden( (quid: psdl id; qi: type name), 
type declaration pkg.scan, (q_inputs), 
iPfenotsGet first qi) then 
Got lfirsecqi := true, 
BOreden( (cela pso ald, cm cham Eyre Name), 
type declaration_pkg.scan, (c_inputs), 
temp _sn := new SigMatchNode' (createSigMatchNode) ; 
sigMatchNodeAssign(temp_sn.all, root_sn); 
temp sn.expanded for_inputs := false; 
Eype map pkg bind(qi, scltn, temp sn. v7. 1M); 
type declaration_pkg.assign(temp_q inputs, 
new_q inputs); 
type_declaration_pkg.assign(temp_c_inputs, 
new _C_inputs); 
type _declaration_pkg.remove(q_id, temp_q inputs); 
type declaration_pkg.remove(c_id, temp_c_inputs); 
match(temp_q inputs, temp_c_inputs, temp_sn.all, 
success); 
if success then 
agoBraneh( temp si, returns val); 
end if; 
) 
end if; 
) 
end if; 
sigMatchNodeAssign(root_sn, return_val); 
end match; 


q_inputs, c_inputs: type declaration; 


begin 
success := true; 
foreach((q_op: operator; c_op: operator), op_map_pkg.scan, (root_sn.V.OM), 
if success then 


—_—— 


-- Remove the input types that have already been mapped. 
type declaration _pkg.assign(q_inputs, inputs(q_op)); 
type declaration pkg jassign (clineucs;e puts (euep))); 


-- query 
foreach((the_id: psdl_id; the_tn: type name), 
type declaration _pkg.scan, (inputs(q_op)), 
if type_map_pkg.key set_pkg.member(the_tn, 
type_map pkg.map_domain(root_sn.V.TM)) then 
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end 
) 


-- If the type was mapped make sure it was mapped to 
-- a type in the candidate operator. This is necessary 
-- because inputs are mapped for one operator at a time. 
PE CYpe declaraclion pkg .£es Ser soko). member, 
type map pkg.feteh(root sn.V-IM, the tn), 
type declaration _pkg.map_range(c_inputs)) then 
typeudeeclarativon pkg. remeve (Ene 1d, 9 inputs); 
else 
success := false; 
end L£; 
ain; 


Be canglaate 
Eoreach({ thesia: psdlvid; the en: typername), 


type Geclaration pkg.scan, (inputs(c op)), 


if type Map pkg. res set pkg. member (the tn, 


end 


type map pkg.map range(root_sn.V.TM)) then 
eyperdeelaration pkg. remove (therid, Ge linpucs) ; 
ly 


~- if the number of remaining inputs types for the query and 
-- the candidate are not equal then the operations cannot match 


if success then 
if type declaration _pkg.size(q_inputs) /= 


type déelararionepkg.slzZe(C inputs) “then 
success := false; 


else 


-~- if the node has already been expanded for inputs then 
-- all of its operators’ inputs must already be mapped 
-- otherwise the node fails. 

Ti eeCou sl expanded for iipurs) chen 


success := type declaration_pkg.size(q_inputs) = 0; 
else 
Match (| geesuser cetanea(q 1npucs), 
get sicer detined(coinpucs), EOOQtNSH SUCCESS) « 
end if; 
end if; 
end if; 


end if; 
) 
end Match inputs; 


-- Function: verify subtypes 


Spe seriptl on : 


£unction verify subtypes (root_sn: in SigMatchNode) return boolean is 


begin 
== ALOIS. 
return true; 


end verify subtypes; 


== eh. OCCOUre: Match ops 


-- Description: this is the main procedure for signature matching. 

—— Given the operations and their profiles for a query and a 
a candidate, this method will return a SigMatchNode whose 
aS branches contain valid operation and type mappings. 


procedure match _ops(query, candidate: in OpWithProfileSeq; 
root_sn: in out SigMatchNode) is 
return_val: SigMatchNode; 
temp_sn: SigMatchNodePtr; 
Success, pruned: boolean; 
temp_query, temp candidate: OpWithProfileSeq; 
temp_char: character; 
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begin 


return val 


>= createSigMatchNode; 


SigMatchNodeAssign (return val, root sn); 


Owp_sequence pkg.assign(temp query, query); 
owp_ sequence pkg.assign(temp candidate, candidate) ; 
foreach((q_ owp: OpWithProfile), owp_ sequence pkg.scan, (query), 
foreach((c_owp: OpWithProfile), owp sequence pkg.scan, (candidate), 
if gq_owp.op_profile = c_owp.op profile then 


temp_sn := new SigMatchNode' (createSigMatchNode) ; 
SigMatchNodeAssign(temp_sn.all, root_sn); 
op_map_ pkg.bind(q owp.op, c_owp.op, temp _sn.V.0OM); 
1f not validPairingExists(temp_sn.V.OM, return_val) then 
match _outputs(temp_sn.all, success); 
if success then 


passed outputs := passed outputs + 1; 
if match_basics (get _basics(inputs(q_owp.op)), 
get_basics(inputs(c_owp.op)))} then 


opWithProfileSeqRemove(q owp, temp_query); 
opWithProfileSeqRemove(c_owp, temp_candidate) ; 
match ops(temp query, temp candidate, temp sn-all), 
addBranch (temp sn, retuinsval); 
passed basics := passed_basics + 1; 
else 
failed basics := failed_basics + 1; 
end if; 
else 
failed outputs := failed_outputs + 1; 
end if; 
else 
duplicates := duplicates + 1; 
end if; 


end if; 


-- prune leaf nodes until all leaves are valid solutions 


pruned := 


true; 


while pruned loop 


pruned 


:= false; 


SigMatchNodeAssign(root_sn, return_val); 
foreach((leaf snp: SigMatchNodePtr), sig_match_node_ptr_seq pkg.scan, 


(getheaftNoderrers (roct sn)), 


if leaf_snp.validation = UNKNOWN then 


match inpurs(leatesnplall, success), 


LOtallinpuese:—etotalyinputs + 1; 
if not success then 
Peat snp.validation :—= INVAGID; 
elsif not verify subtypes(leaf_snp.all) then 
leat snp.validation := INVALID; 
else 
L£ sig_match_node ptr_seq_ pkg. length ( 
leaf_snp.branches) = 0 then 
leatesnp. validations. — vA), 
else 
leaf snp.expanded for_inputs := true; 
end if; 
end ic, 


if leaf _snp.validation = INVALID then 
-- removeBranch(leaf_snp, return_val); 
removeAl]lMatchingBranches(leaf_snp, return_val); 


failed_inputs := failed_inputs + 1; 
pruned := true; 
end if; 
end if; 
) 
end loop; 


-- recycle local variables 


owp_sequence_pkg.recycle(temp_ query); 
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owp_sequence pkg.recycle(temp candidate); 


sigMatchNodeAssign(root_sn, return_val); 
end match_ops; 


procedure sigMatchStatsReset is 
begin 


failed_outputs 0; 
passed outputs := 0; 
failed basics := 0; 
passed_basics := 0; 


duplicates := 0; 
total _ inputs := 0; 
failed_inputs := 0; 
end sigMatchStatsReset; 


procedure sigMatchStatsPut (filename: string) is 
the file: file type; 

begin 
create(the file, out_file, filename); 
put(the file, “Duplicates: "); 
put_line(the file, integer'image(duplicates) ); 
PUG (the vElle, | Passed Output Matching.) “); 
put_line(the_file, integer'image(passed_outputs) ); 
put(the file, “Failed Output Matching: “); 
put_line(the file, integer'image(failed_outputs) ); 


put(the file, "Passed Predefined Type Matching: "); 
put_line(the file, integer'image (passed basics) ); 
put(the file, "Failed Predefined Type Matching: "); 


put_line(the_ file, integer'image(failed_basics) ); 
put(the file, "Total Inputs: "); 
put_line(the file, integer'image(total inputs) ); 
PUL CChemrile, “Failed inputs: %”); 
put_line(the file, integer'image(failed inputs) ); 
close(the_ file); 

end sigMatchStatsPut; 


end sig match; 


Q. SIG_MATCH_TYPES.ADS 


me ec crm ce ce ce we ec ee cr re ee ee ee ee we ee ww a ee eee es ee 


ce ccm cr ce cr cr cree ce ce ee rm ce ce ce we ce ee wr cr cr ee ee a i ee ee ee ee ee ee eee ee 


with psdl concrete type pkg; use psdl_concrete_type pkg; 
with psdl_component_pkg; use psdl_component_pkg; 


with generic map pkg; 
with generic sequence pkg; 
with generic_set_pkg; 
with ordered_set_pkg; 


package sig match types is 


-- Types 


—— 


-- TypeMap 
package type_map pkg is new generic map pkg( 
key => type_name, 
result => type name, 
eq _ key => equal, 
eq res => equal, 
average size => 4); 
subtype TypeMap is type _ map pkg.map; 


procedure typeNamePut(the_tn: type name); 


ea 


procedure typeMapPut is new type map pkg.generic_ put ( 
key put => typeNamePut, res put => typeNamePut); 


procedure typeMapFilePut is new type _map_pkg.generic_file put ( 
key put => typeNamePut, res put => typeNamePut); 


= ©DMap 
package op_ map pkg is new generic map _pkg( 
key => operator, 
result => operator, 
eq key => eq, 
BQlres => eq: 
average size => 4); 
subtype OpMap is op map pkg.map; 


procedure opPut(the op: operator); 


procedure opMapPut is new op map pkg.generic_ put ( 
key put => O©pPut, res put l=> cpPue)? 


procedure opMapFilePut is new op map _pkg.generic file put( 
kéy Put => OpPUE, Snes put => OpEuE); 


-- SignatureMap 


type SignatureMap is record 
TM: TypeMap; 
OM: OpMap; 

end record; 


function createSignatureMap return SignatureMap; 


procedure addTypeMapping(tnl: in type name; tn2: in type _name; 
sm: in out SignatureMap) ; 


procedure addOpMapping(opl: in operator; op2: in operator; 
sm: in out SignatureMap) ; 


function signatureMapEqual(sml: in SignatureMap; sm2: in SignatureMap) 
return boolean; 


procedure signatureMapPut (sm: in SignatureMap); 


-- SignatureMapSet 


package sig map _set_pkg is new generic_set_pkg( 
t => SignatureMap, eq => signatureMapEqual) ; 
subtype SignatureMapSet is sig_map_set_pkg.set; 


procedure signatureMapSetPut is 
new sig map_set pkg.generic_ put(put => signatureMapPut) ; 


-- SigMatchNodePtr 


type SigMatchNode; 
type SigMatchNodePtr is access SigMatchNode; 


function sigMatchNodePtrEqual(smnpl: in SigMatchNodePtr; 
smnp2: in SigMatchNodePtr) return boolean; 


function sigMatchNodePtrLessThan(smnpl: in SigMatchNodePtr; 
smnp2: in SigMatchNodePtr) return boolean; 


procedure sigMatchNodePtrPut(smnp: in SigMatchNodePtr); 
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~- SigMatchNodePtrSeq 
Package ssig match node pin seq pkg 1s new generic sequence pka( 
t => SigMatchNodePtr, average size => 4); 
subtype SigMatchNodePtrSeq is sig_match_node_ptr_seq pkg.sequence; 


function sigMatchNodePtrSeqEqual is 
new sig_ match_node ptr seq pkg.generic_equal(eq => sigMatchNodePtrEqual); 


function sigMatchNodePtrSeqMember is 
new sig _match_node ptr_seq pkg.generic_member(eq => sigMatchNodePtrEqual) ; 


procedure sigMatchNodePtrSeqRemove is 
new sig match_node ptr seq pkg.generic_remove(eq => sigMatchNodePtrEqual); 


procedure sigMatchNodePtrSeqPut is 
new sig match node ptr seq pkg.generic_ put(put => sigMatchNodePtrPut); 


-- SigMatchNodePtrSet 
package sig_match node ptr_set_pkg is new ordered_set_pkg( 
t => SigMatchNodePtr, eq => sigMatchNodePtrEqual, 
"<" => sigMatchNodePtrLessThan) ; 
subtype SigMatchNodePtrSet is sig_match_node_ptr_set_pkg.set; 


procedure sigMatchNodePtrSetPut is 
new sig match_node ptr_set_ pkg.generic put(put => sigMatchNodePtrPut); 


procedure sigMatchNodePtrSetPrint (the set: sigMatchNodePtrSet); 


-- SigMatchNode 


type ValidationType is (UNKNOWN, VALID, INVALID); 
type SigMatchNode is record 
142: Natural; 
Signature rank: £loat, 
semantic rank: float; 
V: SignatureMap; 
validation: ValidationType; 
expanded for inputs: boolean; 
branches: SigMatchNodePtrSeq; 
ena record, 


function createSigMatchNode return SigMatchNode; 


procedure addBranch(the branch: in SigMatchNodePtr; 
the_node: in out SigMatchNode); 


procedure removeBranch(the branch: in SigMatchNodePtr; 
the_node: in out SigMatchNode); 


procedure removeAllMatchingBranches(the_branch: in SigMatchNodePtr; 
the_node: in out SigMatchNode) ; 


function sigMatchNodeEqual(smnl: in SigMatchNode; smn2: in SigMatchNode) 
return boolean; 


function sigMatchNodeLessThan(smnl: in SigMatchNode; smn2: in SigMatchNode) 
return boolean; 


procedure sigMatchNodeAssign(smnl: in out SigMatchNode; 
smn2: in SigMatchNode); 


procedure sigMatchNodePut (the node: in SigMatchNode) ; 

procedure sigMatchNodePrint (the node: SigMatchNode) ; 

procedure generateGML(the_node: in SigMatchNode; filename: in string); 
£fUNCcELON getLeafNodePtrs(the node: in SigMatchNode) return SigMatchNodePtrSeq; 


Function getLeafNodePtrs(the node: in SigMatchNode) return SigMatchNodePtrSet; 
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function getValidLeafNodePtrs (the node: in SigMatchNode) 
return SigMatchNodePtrSet; 


function validPairingExists (pairing: in OpMap; the_node: in SigMatchNode) 
return boolean; 


end sig match _ types; 


R. SIG_MATCH_TYPES.G 


ar ww ww ws ar a ae we ew me we ar cr ws es a ew ee ew we wi i 


with text_io; use text_io; 
Wien vada: FloaEytextale. 


with psdl_concrete_type pkg; use psdl_concrete_type_pkg; 
with psdl_component_pkg; use psdl_component_pkg; 


with candidate types; 


package body sig match types is 


_—— 


-- Procedure: typeNamePut 


-- Description: outputs the type name's name 
procedure typeNamePut(the tn: type name) is 
begin 
Pemcewequal(tnewtn, null type) then 
PuLc(Convere (che En. name) ); 
end if; 
end typeNamePut; 


-- Procedure: opPut 


-- Description: outputs the operator's name 
procedure opPut(the op: operator) is 
begin 
if the_op /= null_component then 
put (convert (name(the op))); 
end if; 
end opPut; 


-- Function: createSignatureMap 


-- Description: create and initialize a SignatureMap for use. 


function createSignatureMap return SignatureMap is 
return val: SignatureMap; 


begin 
return _val.TM := type map pkg.create (null type); 
return_val.OM := op _map_pkg.create(null_ component); 


return return val; 
end createSignatureMap; 


-- Procedure: addTypeMapping 
-- Description: binds two types together and adds them to the 
= SignatureMap's TypeMap. 
procedure addTypeMapping(tnl: in type name; tn2: in type_name; 
sm: in out SignatureMap) is 
begin 
type map pkg.bind(tnl, tn2, sm.TM); 
end addTypeMapping; 
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-- Procedure: addOpMapping 
-- Description: binds two operators together and adds them to the 
— SignatureMap's OpMap. 
procedure addOpMapping(opl: in operator; op2: in operator; 
sm: in out SignatureMap) is 

begin 

op_map pkg.bind(opl, op2, sm.OM); 
end addOpMapping; 


-_—— 


-- Function: signatureMapEqual 
function signatureMapEqual(sml: in SignatureMap; sm2: in SignatureMap) 
return boolean is 
begin 
return type map pkg.equal(sml.TM, sm2.TM) and 
op map pkg.equal(sm1.OM, sm2.0OM); 
end signatureMapEqual; 


-- Function: signatureMapPut 


procedure signatureMapPut(sm: in SignatureMap) is 


begin 
mii CMs oye: 
opMapPut (sm. OM) ; 
DUG wipiM: i 


typeMapPut(sm.TM); 
end signatureMapPut; 


-- Function: sigMatchNodePtrEqual 
function sigMatchNodePtrEqual(smnpl: in SigMatchNodePtr; 
smnp2: in SigMatchNodePtr) return boolean is 
begin 
return sigMatchNodeEqual(smnpl.all, smnp2.all); 
end sigMatchNodePtrEqual; 


-- Function: sigMatchNodePtrLessThan 
function sigMatchNodePtrLessThan(smnpl: in SigMatchNodePtr; 
smnp2: in SigMatchNodePtr) return boolean is 
begin 
return sigMatchNodeLessThan(smnpl.all, smnp2.all); 
end sigMatchNodePtrLessThan; 


-- Procedure: sigMatchNodePtrPut 
procedure sigMatchNodePtrPut(smnp: in SigMatchNodePtr) is 
begin 
SigMatchNodePut (smnp.all); 
end sigMatchNodePtrPut; 


-- Function: sigMatchNodeEqual 
function sigMatchNodeEqual(smnl: in SigMatchNode; smn2: in SigMatchNode) 
return boolean is 
begin 
if smnl.signature_rank /= smn2.signature_rank then 
return false; 
end if; 


if smnl.semantic_rank /= smn2.semantic_rank then 
return false; 
end if; 
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if smnl.validation /= smn2.validation then 
return false; 
end if; 


if smnl.expanded_for_inputs /= smn2.expanded_for inputs then 
return false; 
end if; 


if not signatureMapEqual(smnl.V, smn2.V) then 
return false; 
end if; 


return sigMatchNodePtrSeqEqual(smnl.branches, smn2.branches) ; 
end sigMatchNodeEqual; 


— 


-- Function: sigMatchNodeLessThan 
function sigMatchNodeLessThan(smnl: in SigMatchNode; 
smn2: in SigMatchNode) return boolean is 
begin 
if smnl.signature rank > smn2.sSignature rank then 
return true; 
-- the following test for less-than is just being paranoid 
-- about potential float equality problems 
elsif smnl.signature_ rank < smn2.Signature_rank then 
return false; 
elsif smnl.semantic_rank > smn2.semantic_rank then 
return true; 
-- the following test for less-than is just being paranoid 
-- about potential float equality problems 
elsif smnl.semantic_rank < smn2.semantic_rank then 
return false; 
else 
return smnl.id < smn2.id; 
end if; 
end sigMatchNodeLessThan; 


-- Procedure: sigMatchNodeAssign 

procedure sigMatchNodeAssign(smnl: in out SigMatchNode; 
smn2: in SigMatchNode) is 

begin 
smnl.signature rank := smn2.signature_rank; 
smnl.semantic_rank := smn2.semantic_rank; 
smnl.validation := smn2.validation; 
smnl.expanded for inputs := smn2.expanded_ for inputs; 
type Map pkg.assign(smn1.V.TM, smn2.V.TM); 
op_map_ pkg.assign(smn1.V.OM, smn2.V.0OM); 
-- TODO: might have to do the deep copy myself here 
~= rather than call assign 
sig _match_node_ ptr_seq_ pkg.assign(smnl.branches, smn2.branches); 

end sigMatchNodeAssign; 


-- Procedure: sigMatchNodePut 
procedure sigMatchNodePut (the node: in SigMatchNode) is 
begin 
put("(Signature Rank: "); 
if the_node.signature_rank = candidate_types.RANK UNKNOWN then 
put ("unknown") ; 


else 
ada. float_text_io.put (the_node.signature_rank, 1, 2, 0); 
end if; 
put(" {| "); 
put("(Semantic Rank: ™"); 


if the node.semantic_rank = candidate_types.RANK_UNKNOWN then 
put ("unknown") ; 


else 

ada.float_text_io.put(the_node.semantic_rank, 1, 2, 0); 
end. 26% 
une | one 
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Case the nodé.validation is 
when UNKNOWN => put("Validation Unknown") ; 
when VALID => put("Valid"); 
when INVALID => put ("Invalid"); 
end case; 
Put ie) 
if thegmede.expanded forgrmnputs then 
put ("Expanded") ; 


else 

put ("Not Expanded") ; 
end if; 
put | ee 


put ("Cp Map-s 9. 

opMapPut (the_node.V.OM); 
put (" | ry: 

DUt( Type Maps") > 
CYPeMapeut tthe node. V-TM) ; 


Dut: | tyre 

put ("{Branches: “); 
sigMatchNodePtrSeqPut (the _node.branches) ; 
put (js 

putt we 

new line, 


end sigMatchNodePut; 


-- Procedure: sigMatchNodePrint 
procedure sigMatchNodePrint (the node: SigMatchNode) is 
begin 
Pur Ci Signature Rank: "); 
if the_node.signature_ rank = candidate _types.RANK_UNKNOWN then 
put (“unknown”); 


else 
ddawetede etext 1O,pUE(the mode.signdture rank, 1, 2,0); 
end sic, 
new_line; 
PuLt” Semantic Rank: "™); 


if the_node.semantic_rank = candidate_types.RANK_UNKNOWN then 
put ("unknown"); 
else 
ada.float_text_io.put (the node.semantic_rank, 1, 2, 0); 
end if; 
new ine; 
putt. vs 
case the mode, validation is 
when UNKNOWN => put ("Validation Unknown") ; 
when VALID => put("Valid"); 
when INVALID => put ("Invalid") ; 
end case; 
Bue; ee 
if the_node.expanded_for_inputs then 
put_line ("Expanded") ; 


else 

Puc Tine ("Net Expanded”) ; 
end Li, 
Puc” Op Map: "); 
opMapPut (the_node.V.OM) ; 
new line; 
Bue” type Map: ); 


EypeMapPut(the nede.V.1M); 
new_line; 
puc(” Branches: 5 )); 
sigMatchNodePtrSeqPut (the _node.branches) ; 
new_line; 

end sigMatchNodePrint; 


-~ Function: createSigMatchNode 

-- Description: create and initialize a SigMatchNode for use. 

= Note, a unique node id is maintained to facilitate 
= sorting when two nodes have equal signature and 

-- semantic ranks. 


ee 


UNnLGuemnoderid: natural := 0; 

function createSigMatchNode return SigMatchNode is 
return_val: SigMatchNode; 

begin 
return_val.id := unique_node_id; 
unique _node_id := unique node_id + 1; 
return_val.signature rank := candidate_types.RANK_UNKNOWN; 
return_val.semantic_rank := candidate types.RANK_UNKNOWN; 
return_val.validation := UNKNOWN; 7 
return_val.expanded_for_inputs := false; 
return _val.V := createSignatureMap; 
Peruri oval bidncies.:— Sig Macew node Per Seq Pkg .empuy; 
FeCULheceeurn Val; 

end createSigMatchNode; 


-- Function: addBranch 

-- Description: add a branch (a child SigMatchNode) to the SigMatchNode. 
= A branch represents a superset of the node it belongs to. 
ae What this really means is the branch node contains all the 
=a type and operator mappings plus of the node it belongs to 
== plus more. 


procedure addBranch(the branch: in SigMatchNodePtr; 
the node: in out SigMatchNode) is 
begin 
Ssig_match_node_ptr_seq pkg.add(the_branch, the_node.branches) ; 
end addBranch; 


-- Function: removeBranch 


-- Description: 
PEOCcedure removeBranch(the branch: in SigMatchNodePtr; 
the node: in out SigMatchNode) is 
begin 
sigMatchNodePtrSeqRemove(the_branch, the_node.branches) ; 
end removeBranch; 


-- Function: removeAllMatchingBranches 


=-—- DEScrlperon : 
procedure removeAllMatchingBranches(the_branch: in SigMatchNodePtr; 
the_ node: in out SigMatchNode) is 
begin 
SsigMatchNodePtrSeqRemove (the branch, the_node.branches); 
foreach((branch: SigMatchNodePtr), sig_match_node_ptr_seq_pkg.scan, 
(the _node.branches), 
removeAllMatchingBranches (the branch, branch.all); 
) 
end removeAllMatchingBranches; 


~- Procedure: generateGML 

-- Description: generate a GML file to graphically represent the 

Se SigMatchNode's relationship with its branches. 

procedure generateGML(the node: in SigMatchNode; filename: string) is 
1d; Matural ~=80-. -- unigue IDsecounter 
the id: natural; -~ place holder for call to put_node_gml 
gml_file: file type; 


fUNECELON ew eta —return natural is 
begin 

idv:= 10 4 1; 

return 1d: 
end new_id; 
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procedure put_node_gml(sn: in SigMatchNode; my_id: out natural) is 
child_id: natural; 
begin 
my_id := new_id; 
put(gml file, "node [ id "); 
put(gml_ file, integer'image(my_id)); 
Puc tom  tile,7 7 label. """); 
opMapFilePut(gml file, sn.V.OM); 
PUtSLine (qmimrtile  .)), 
CypeMapPilerut(qmiverie, sn.V.1M); 
Put) line (omiee! Leja) y 
case sn.validation is 
when UNKNOWN => put(gml_file, "Validation Unknown") ; 
when VALID => put(gml_file, “Valid"); 
when INVALID => put(gml_file, "Invalid"); 
end case; 
put_line(gml_file, "\"); 
Lf sn-expanded for inputs then 
put(gml file, "Expanded"); 


else 

put(gml_file, "Not Expanded"); 
end if; 
PUL ine (omic le 


-—) recur savelyecallapuc nowe ome for €ach Of 1ts branches 
foreach( (branch: SigMatchNodePtr), sig match_node ptr seq pkg.scan, 
(sn.branches), 
Pubsnoderomia(branchsall, child 1d); 


-- make the edge to the branch 
puct(oml file, "edge [ id "); 
put(gml_ file, integer'image(new_id)); 
Putconml: file, “ source “); 
put(gml_ file, integer'image(my_id)); 
put(gml_ file, " target "); 
put(gml_ file, integer'image(child_id)); 
pue lone (qml. tite)"; 
) 
end put_node_ gml; 


begin 
create(gml_file, out_file, filename); 
Put (gmiprilte, “graph [| id"); 
put(gml_file, integer'image(new_id)); 
put line(gml file, " directed 1”); 
put_node_gml(the node, the _ id); 
put lJine({gml file, “]"); 
close(gml_ file); 

end generateGML; 


-- Function: getLeafNodePtrs 


-- Description: collect the leaf nodes of the_node into a sequence. 
function getLeafNodePtrs(the_node: in SigMatchNode) 
return SigMatchNodePtrSeq is 
return_val: SigMatchNodePtrSeq; 


procedure processNode(smnp: in SigMatchNodePtr) is 
begin 
if sig_match_node_ptr_seq pkg.length(smnp.branches) = 0 then 
sig_match_node ptr_seq pkg.add(smnp, return_val); 
return; 
end if; 
foreach({branch: SigMatchNodePtr), sig_match_node_ ptr_seq pkg.scan, 
(smnp.branches), 
processNode (branch); 
) 
end processNode; 


begin 
return_val := sig match_node ptr_seq pkg.empty; 
foreach( (branch: SigMatchNodePtr), sig_match_node_ptr_seq pkg.scan, 


i 


(che node branches), 
processNode (branch) ; 
) 
return return val; 
end getLeafNodePtrs; 


—— 


-- Function: getLeafNodePtrs 
-- Description: collect the leaf nodes of the_node into a set. 
-- Note the set will keep duplicates out. 
function getLeafNodePtrs (the node: in SigMatchNode) 
return SigMatchNodePtrSet is 
return_val: SigMatchNodePtrSet; 


procedure processNode(smnp: in SigMatchNodePtr) is 
begin 
if sig match_node ptr _ seq pkg.length(smnp.branches) = 0 then 
Sig_match_node ptr_set_pkg.add(smnp, return_val); 
Tecvurn, 
end sic; 
foreach( (branch: SigMatchNodePtr), sig _match_node_ptr_seq pkg.scan, 
(smnp.branches), 
processNode (branch); 
) 
end processNode; 


begin 
Deere adie =e de MmMaccn node per Sects xg. empey, 

foreach((branch: SigMatchNodePtr), sig match_node ptr seq pkg.scan, 

(the node.branches), 
processNode (branch) ; 

) 

BELULH LeLurneval; 
end getLeafNodePtrs; 


-- Function: getValidLeafNodePtrs 
-- Description: collect the valid leaf nodes of the node into a set. 
== Note the set will keep duplicates out. 
function getValidLeafNodePtrs(the_ node: in SigMatchNode) 
return SigMatchNodePtrSet is 
return_val: SigMatchNodePtrSet; 


procedure processNode(smnp: in SigMatchNodePtr) is 
begin 
if sig_match_ node ptr seq pkg.length(smnp.branches) = 0 then 
if smnp.validation = VALID then 
sig match node ptr set pkg.add(smnp, return_val); 
end if; 
return; 
end if; 
foreach( (branch: SigMatchNodePtr), sig_match_node_ptr_seq pkg.scan, 
(smnp.branches), 
processNode (branch) ; 
) 


end processNode; 


begin 
return_val := sig_match node ptr Set pkg.empty; 
foreach( (branch: SigMatchNodePtr), sig _match_node_ptr_seq pkg.scan, 
(Che inode branches), 
processNode (branch) ; 
) 
EQCULI ere CULM vaL 
end getValidLeafNodePtrs; 


=~ FUNCGE1On: ValidPairingExists 


-- Description: gets all the valid leaf nodes and checks if the pairing 
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exists in any of them 


function validPairingExists (pairing: in OpMap; the_node: in SigMatchNode) 


return boolean is 


return val: boolean; 
begin 
return_val := false; 
foreach((sn: SigMatchNodePtr), sig _match_node_ptr_set_pkg.scan, 


(getValidLeafNodePtrs(the_node)), 
iiPenec return val then 
return_val := op_map_pkg.submap(pairing, sn.V.OM); 
-- TODO: if return_val is true then should immediately return 
ies but for each doesn't let me do this 
end if; 


return returneval,; 
end validPairingExists; 


-- Procedure: sigMatchNodePtrSetPrint 


procedure sigMatchNodePtrSetPrint (the set: sigMatchNodePtrSet) is 
begin 


foreach ((the_node: SigMatchNodePtr), sig_match_node_ ptr_set_pkg.scan, 


(the_set), 
SigMatchNodePrint (the node.all); 
put_line("%tEnd Signaturet%”") ; 


put_line("%%End_ Component%3%") ; 
end sigMatchNodePtrSetPrint; 


end sig _ match types; 


S. SOFTWARE BASE.ADS 


with 
with 
with 
with 
with 


with 


—_— ee ee ew ee we eee i i a ewe ew ee eS ew ewe ew eS Se 


em mm crm ce cr a cr cr a a ew ee ee we ww ww ww i i 


Giat oc, 

component_id_ types; use component_id_ types; 
haase_ diagram; use haase_ diagram; 

candidate types; use candidate types; 
profile types; use profile types; 


a_ strings; 


package software base is 


procedure initialize(sb root: in string; header filename: in string); 
procedure reinitialize(sb root: in string); 


function numComponents return natural; 


function numPartitions return natural; 


function numOccupiedPartitions return natural; 


procedure generateGML(gml_filename: in string); 


procedure getCandidateFilename(component_id: in integer; filename: out string; 
filename Vength. out integer); 


function profileFilter(query filename: in string) return CandidateSet; 


function signatureMatch(query filename: in string; 


the candidate: in Candidate; 
srank: in float) return Candidate; 


function getProfileID(p: Profile) return ProfileID; 


function getProfile(p id: ProfileID) return Profile; 
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function getProfileIDs return profile lookup table pkg-res set; 


private 


=—) ene, CONpOnent | 1d imap 


the_component_id map: ComponentIDMap; 


—— 


-- the_haase diagram 


the _haase diagram: HaaseDiagram; 


-- the profile lookup table 
the_profile lookup _table: ProfileLookupTable; 


end software base; 


T. SOFTWARE. BASE.G 


—_——— me mw ar we ww we we we ee ew em em ee Ee ww ew ew ewe ee Ee 


mm me ew mee we ee ce we wc ee we we we we we we we we ce ww ee 


with text_io; use text_io; 

with ada.integer text_io; --use ada.integer_text_io; 
with lookahead_pkg; 

wien sb utils; 


with a_strings; 
with psdl_ concrete type pkg; use psdl_concrete type pkg; 


with component_id_ types; use component_id_ types; 
with haase_ diagram; use haase_ diagram; 

with candidate types; use candidate types; 

with profile types; use profile types; 

with psdl_ profile? use psdl profile; 

with sig match_types; use sig match_types; 

with probile filter pkg; 

with sig _ match; 


package body software base is 


== Proceaurc. intemal ze 

-- Description: reads the header file to construct the_component_id_map 

== and the_haase diagram. 

procedure initialize(sb_root: in string; header filename: in string) is 
use a_strings; 


header file: file type; 

comp_id: ComponentID; 

ave onhame. da oste ino: 

sbfile_ name: a_ string; 

Input Lines String dae 5.o))); 

line length: natural; 

comp_id_last : natural; 

temp comp profile: ComponentProfile; 
temp_haase_ node: HaaseNode; 

temp component: Component; 

the generics maps: GenericsMapSet; 
generics mapping: GenericsMap; 

n_ components: integer := 0; 
message: a string; 


id: natural := OQ: 
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Olaestart. nacural.<=— 0; 
function new 1d(start: natural) return natural is 


begin 
if start /= old_start then 
id := 0; 
old start = start; 
end eit; 


id := id + 1; 
return start + id; 
end new_id; 


begin 


==parse header tile and construct the component ida map 


component_id_ map pkg.create(createComponent, the_component_id_ map); 


open(header_file, in file, header filename); 

while (not end_of file(header_file)) loop 
n_components:= n_componentstl; 
Geceline (neader file, anpuc line, line lLengenjy, 
ada-integer text 1o0.get(inputiline, comp_id, comp _id last); 


-- trim spaces before and after directory name 
dir name := reverse order(trim( 

Reverse vorderlerim(a strings. to a 

iInpuLel ine leCnparde last 15. line length) ))) ja 
-- create a component for each generic mapping 


the_generics_maps := getGenericsMaps (convert (text(dir_name & "/PSDL_SPEC"))); 
message := to_a(" Preparing ") & input _line(1..line_ length); 

message := message & " ... "; 

message := message & integer'image(generics map set_pkg.size(the_generics_maps)); 
message := message & " components..."; 


sb_utils.Display Message (message.s) ; 
foreach((the_map: GenericsMap), generics map_set_pkg.scan, 
(the generics maps), 
temp _ component := createComponent; 
temp_component.psdl filename := text(dir_name & 0/7 PSDs EC"); 
generics map_pkg.assign(temp component.generics mapping, the _map); 
component_id map pkg.bind(new_id(comp_id), temp_component, 
the component id map); 
) 
sb_utils.Display Message_line("done") ; 
end loop; 
close(header file); 


-- Create the ProfileLookupTable 
the_profile lookup_table := 
profile lookup_table_pkg.create (DEFAULT_PROFILE_ID); 


-- construct haase diagram 


the haase diagram := createHaaseDiagram; 


-- for each item in the_component_id_map, get the component’s 

~- profile and add it to the haase diagram 

foreach( (the _comp_id: ComponentID; the component: Component), 
component_id_map_pkg.scan, (the_component_id_map), 


message := to_a(" inserting ") & integer'image(the_comp_id); 
sb_utils.Display Message _line(message.s); 
temp_comp profile := getComponentProfile( 


convert (the _component.psdl filename), the_component.generics mapping) ; 


-- check if haase node with temp_comp profile as its key 
-- already exists. If it does then add the component id 
-- to that node rather than make a new node. 
if haase_node_map pkg.member(temp_ comp profile, the _haase_ diagram) then 
temp_haase_ node := haase_node map _pkg.fetch(the_haase diagram, 
temp_comp_ profile); 
else 
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temp_haase node := createHaaseNode(temp_comp_profile); 
end Tf; 
addComponent (the _comp_id, temp_haase_node); 
addHaaseNode(temp_haase node, the haase diagram); 


sb_utils.Display Message(" adding base nodes..."); 
addBaseNodes (the __ haase diagram); 
So sueie Ss. Display Message line("done"); 
sb_utils.Display Message(" connecting nodes..."); 
connectNodes (the haase diagram); 
sb_utils.Display Message line("done"); 


sb_utils.Display Message line(" Saving the software base search data"); 
sb | _utils.Display Message (" the component “id map..."); 
sbfile name := a strings.to _a(sb root) & "component_id_map.dat"; 


create(header file, out file, sbfile name.s); 
SCE OUEDUE (header _ fives: 

componentIDMapPut (the _component_id_ map); 
set_output (standard output); 

close (header file); 
sb_utils.Display Message _line("done"); 


sb_utils.Display Message (" the profile lookup _table..."); 

Sbfile name :="agstrings.to_a(sb reer) em protile lookup table dat ; 
create (header _file, out oie, sbfile _name.s); 
profileLookupTableFilePut (header_ fave, the profile lookup table); 
close (header file); 

sb_utils.Display Message_line("done") ; 


sb_utils.Display Message (" the haese diagram... "); 
sbfile name := a_strings.to_a(sb root) & “haase_diagram.dat”; 
create (header _file, out file, sbfile Shame .~s); 
set_output (header file); 
haaseDiagramPut (the haase_ diagram) ; 
Set output (standard output); 
close(header file); 
Sb Uta: Display_ Mescage lime some, 
endvinitialize, 


procedUresretnieraliZe(Sb TOO: ln String) 1s 
USe ‘ausSerings, 


heademerile: siile: type; 

comp_id: ComponentID; 

dir name: a string; 

sbfile name: a string; 

INBuETLINe: String(1..256); 

line length: natural; 

comp_id last : natural; 

Leip eGomp prota le Component Prorile; 
temp_haase node: HaaseNode; 

temp component: Component; 
the_generics_maps: GenericsMapSet; 
generics mapping: GenericsMap; 
n_components: integer := 0; 
key_id, res_id: psdl_id:; 


id: natural := 0; 
Oldest tart natural. :— 0; 
begin 


-- parse header file and construct the_component_id_map 
component_id_map pkg.create(createComponent, the_component_id_map); 


sb_utils.Display Message(" Retreving the_component_id_map..."); 
sbfile name := a _Strings. to_a(sb_root) & "component_id_map.dat"; 
open (header _ file, in _file, sbfile_name.s); 

set _input (header _ Fie); 

while (not end_of file(header file)) 

loop 
temp_component := createComponent; 
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species .gqet char Line(inpuc lane, lineglength); 
ada.integer_text_io.get(input_line, comp_id, comp_id last); 
SpLutils sget char _line(input_ Piney line | Lengel) , 
temp_ component. psdl_ filename := “convert (input_line(1..line length) ); 
if lookahead _pkg.token /= '(' then 

lookahead_pkg.skip_ char; 

generics map pkg.recycle(temp_component.generics mapping); 


else 
genericsMapGet (temp_component.generics mapping); 
end if; 
component_id_map_ pkg.bind(comp_id, temp component, the_component_id map); 
end loop; 


set_input (standard input); 
¢lose (header file); 
sb_utils.Display Message _line("done") ; 


-- Create the ProfileLookupTable 
the profile lookup table := 
profile lookup table pkg.create(DEFAULT_PROFILE_ID); 


sb_utils.Display Message(" Retreving the_profile lookup _table..."); 
sbfile _hame := a_strings.to a(sb_root) & “profile lookup table. dat"; 
open (header_ file, in_file, sbfile_name.s); 
set input (header file); 
profileLookupTableGet (the profile lookup_table); 
set input (standard input) ; 
elose (header efile); 
sb_utils.Display Message line("“done"); 


-- construct haase diagram 


the _haase_ diagram := createHaaseDiagram; 
sb_utils.Display Message(" Retreving the_haase_diagram..."); 
sbfile name := a ~Strings.~t6 sa (Sb eroot) & "haase _diagram. cen: 


open (header __ file, in file, sbfile _name.s); 
S€teinpuc (neader rale); 
haaseDiagramGet (the _haase diagram); 
set input (standard input); 
close(header file); 
sb_utils.Display Message line("done"); 
end reinitialize; 


-- Function: numComponents 


-- Description: return the number of components in the software base. 
function numComponents return natural is 
FeLurn Vall: natural; 
begin 
return component_id_map_pkg.size(the component_id map); 
end numComponents; 


-- Function: numPartitions 


-- Description: return the number of partitions in the software base. 
function numPartitions return natural is 
begin 
return haase node map pkg.size(the_haase_ diagram); 
end numPartitions; 


-- Function: numOccupiedPartitions 
-- Description: return the number of occupied partitions in the 
-- software base. 
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function numOccupiedPartitions return natural is 
return val: natural 2:2 0; 
begin 
foreach((the_key: ComponentProfile; the_hn: HaaseNode), 
haase_node_map_ pkg.scan, (the_haase diagram), 
if component_id_set_pkg.size(the_hn.components) > 0 then 
return val := return val + 1; 
endear, 
) 
GEEUrN Geru nm av ade, 
end numOccupiedPartitions; 


-- Function: generateGML 
procedure generateGML(gml_ filename: string) is 
begin 

generateGML(the haase diagram, gml_filename); 
end generateGML; 


-- Function: pretilleri iter 


-~ Description: performs profile filtering with the PSDL specified query 
ao and returns an ordered set of candidates with the highest 
-- Brotile ranking first. 

== Note the PSDL query must NOT contain generics. 


function profileFilter(query filename: in string) return CandidateSet is 
query profile: ComponentProfile; 
begin 
query profile := getComponentProfile(query filename, 
generics map pkg.create(empty) ); 
return profile filter pkg. findCandidates(query profile, the_haase diagram); 
end profileFilter; 


-- Function: signatureMatch 


-- Description: performs signature matching between the PSDL specified 
== query and the candidate and returns a copy of the_candidate 
=e Wiehe che —SlQnature Matenes field ser. 
function signatureMatch(query filename: in string; 
the_candidate: in Candidate; 
srank: in float) return Candidate is 
q ops, c_ops: OpWithProfileSeq; 
sn: SigMatchNode; 
temp _snp_ set: SigMatchNodePtrSet; 
temp _component: Component; 
return_val: Candidate; 


begin 
-- get the query's operators 
q_ ops := getOpsWithProfiles(query filename, generics _map_pkg.create(empty)); 
-- get the candidate's operators 
temp_component := component_id_map pkg.fetch(the_component_id_map, 
the_candidate.component_id); 
Cc ops := getOpsWithProfiles (convert (temp _component.psdl_filename), 


temp_component.generics mapping) ; 


-- perform signature matching 

sn := createSigMatchNode; 

sig _match.sigMatchStatsReset; 

Sig match.match_ops(q_ops, c_ops, sn); 


-- calculate the signature ranks 
Sig _match_node_ptr_set_pkg.assign(temp_snp_set, getLeafNodePtrs(sn)); 
foreach((smnp: SigMatchNodePtr), sig_match_node ptr_set_pkg.scan, 
(Temp snp sen, 
smnp.signature_rank := float(op map pkg.size(smnp.V.OM)) / 
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float(owp sequence pkg.length(q ops) ); 
-- The following calculation for signature rank measures how well the 
-~- signature matching method works on its own. The calculation above 
-- is really a mixture of profile filtering AND signature matching. 


== smnp.signature_rank := float(op_map pkg.size(smnp.V.OM)) / 
== (return val profile rank * float (owp sequence pkg.length(q ops) )); 


) 


=- add Gach SigMatchNodePtr to make sure return_val’s signature matches 
ao LLCs S aso wed 
candidateAssign(return_ val, the candidate) ; 
POLedch (snp: ssloMatenNedePtr), Sig mateh mode ptr set pkg-scan, 
(Eenp Slip set); 
if smmp.signature_rank > srank then 
sig_match_node_ptr_set_pkg.add(smnp, return_val.signature matches) ; 
end if; 


) 


return return val; 
end signatureMatch; 


-- Function: getProfileID 


-~- Description: if the profile doesn't exist then add it first then 
-- return its id. A new id is obtained from the global 
te Vor ia ble inicneeproLl Lear, 


Mntquc ijpEorw cid: Profilelb <= 0; 


function getProfileID(p: Profile) return ProfileID is 
returneval. Protilelb; 
begin 
return _val := 
profile lookup_table pkg.fetch(the profile lookup_table, p); 
if return_val = DEFAULT_PROFILE ID then 
return_val := unique_profile_ id; 
unique _profile_id := unique profile id + 1; 
profile lookup_table pkg.bind(p, return_val, the_profile_lookup_table); 
end if; 
reCuUrmnieeecurn val; 
end getProfileID; 


=— Functien: getProfile 
EMMe TION Geteuori le (fp o1d;)Profileip), return Profile is 
ne CuLrneval: SProLule, 
begin 
return_val := 0; 
foreach((p: Profile; id: ProfileID), profile _lookup_table pkgq.scan, 
(the profile lookup_table), 
if id = p_id then 
return val) := p; 
fale eclomlGceretlthuienc Duc FOr cach doesn £ let me 
encier, 
) 
Feturneeeeurne Vall, 
end getProfile; 


-- Function: gerProfileLDs 
function getProfileIDs return profile _lookup_table pkg.res_set is 
begin 

return profile lookup_table pkg.map_range(the_ profile lookup table); 
end getProfileIDs; 


-- Procedure to return the file name of the candidate psdl component 


NS 7 


procedure getCandidateFilename (component_id: in integer; 
filename: out string; 


filename length: cut integer) yrs 
temp _ component: Component; 


begin 
temp component := component _id map pkg.fetch(the_component_id_map, component_id); 
filename_length := temp_component.psdl_ filename.len; 
for iin 1..filename length loop 
filename(i) := temp _component.psdl_ filename.s(i); 
end loop; 


end getCandidateFilename; 


end software base; 
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